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PREFACE 



This is a detailed programmer's reference manual for Univac 1108 Extended ALGOL. 

It is divided into three main logical areas: structure and use of the language, 
operating environment and systems control, and appendices covering special topics. 

In the text of this manual Univac 1108 Extended ALGOL reserved words, when used 
as reserved words, appear in bold face type; metalinguistic variables are italicized. 
If a reserved word is part of a metalinguistic variable and is being used as the 
metalinguistic variable, then it will be italicized and not boldfaced. If the reserved 
word appears in text but has no relation to the ALGOL reserved word, it will not be 
boldfaced. 

The reader is assumed to have programming experience and a familiarity with the 
1108 Operating System. For those unfamiliar with ALGOL 60 and/ or the 1108 
Multiprocessing Operating System, the following publications are suggested as 
references: 

1. Univac 1108 Operating System Programmers Reference Manual. 

2. McCracken, Daniel D., An Introduction to ALGOL Programming (New York: 
John Wiley and Sons, 1962). 

3. Dijkstra, E.W., A Primer of ALGOL 60 Programming (London and New York: 
Academic Press, 1962). 

4. Naur, P., et al.. Revised Report on. the Algorithmic Language ALGOL 60 
(Communications of the Association for Computing Machinery, Vol. 6, No. 1, 
Jan., 1963). 

Where it is possible, to assure adherence, the language of the Revised Report 
(ref. 4) has been used verbatim. 
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1. INTRODUCTION TO MOB 
EXTENDED ALGOL 



A syntactic, semantic, and pragmatic description of the UNIVAC 1108 Extended ALGOL 
Language is delineated in this manuaL 

The basis for this language is the "Revised Report on the Algorithmic Language, ALGOL 
60". The language, ALGOL 60, can be considered to be a subset of UNIVAC 1108 Extended 
ALGOL. The subset language has been expanded to include extensive input/output device 
communication under Exec 8, provision for formatting of data (Section 11.2.4), and the cap- 
ability of sorting and merging data by use of source language statements that interface with 
the 1108 SORT/MERGE package. (Section 13) In addition, source language statements are 
available to allow the programmer to utilize the powerful multiprogramming capability of the 
1108 system. Specifically, these statements permit a synchronous processing of procedures, 
the capability to test the status of independent events, and the facility to resume synchron- 
ous processing (Section 12). Program debugging is enhanced by the inclusion of statements 
to display a variable and its contents when its value is changed or to conditionally display 
a variable at any point in the program (Section 9.9). An option is available to generate an 
automatic flow-chart of the source language. 

A partial word designation may be indicated for both bit and character fields of the value of 
a variable or the result of an expression. Also, any field of a variable word may be modified 
(Section 4.5). 

Segmentation or paging of arrays has been implemented (Section 9.6) so that multi- 
dimensioned arrays of any size may be declared. 

UNIVAC 1108 Extended ALGOL deviates from ALGOL 60 in the following areas: 

A set of reserved identifiers has been defined (see Appendix B) to enable a more 
efficient and faster translation. 

The compiler for UNIVAC 1108 Extended ALGOL is essentially a single pass 
translator; it requires, therefore, that all labels be declared in the top of the block 
in which they appear and that all forward references to procedures or switches be 
declared at the top of the block in which their declaration appears. These require- 
ments significantly enhance translation time. 
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The syntax of the ALGOL language is described in terms of metalinguistic symbols and 
variables combined to form metalinguistic formulae. 

The metalinguistic symbols as used here have the following interpretation; 

< > brackets are used to contain the sequences of characters representing a 
metalinguistic variable 

; : - a metalinguistic connective meaning "is defined as" and separates the 
metalinguistic variable on the left from its respective metalinguistic 
formula on the right. 

j means "or" and separates the multiple definitions of a metalinguistic 

formula from one another. 

Metalinguistic variables are sequences of characters enclosed in brackets ( < >) which 
define a set of things. 

Metalinguistic formulae are the statements of the rules of syntax (the grammar) for the 
ALGOL language. Consider as an example the simple language called "add, expression". 
The alphabet of "add expression" consists of the objects A, B, C, D, + . 

The grammar for the language follows: 

<variable>::-- A|B|C|D 

<expression> ::= <variable> | <expression> + <variable> 

Note the recursive definition implied in the metalinguistic formula called expression. 

If one were to parse the good expression A + B + C + D in this language, it would be as 
follows: 

A^4 B + C + D 
exp 1 



exp 2 




exp 3 




exp 4 





A set of appendices include a complete presentation of error diagnostics, reserved words, 
and metalinguistic variables. 
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2. STRUCTURE OF THE LANGUAGE 



2.1. BASIC COMPONENTS 

2.1.1. Letters 

2.1.1.1. Syntax 

<letter>::= AiB|ClD|E|F|G|H|IlJlKiL|IVI|N|0|PlQ|R|S|T|U|VlW|X| YjZ 

2.1.1.2. Semantics 

All letters of the alphabet are included in the valid character set for UNIVAC 
1108 Extended ALGOL. Letters do not have individual meanings; they are used 
singly or in combination for forming identifiers and strings. 

2.1.1.3. Examples 

■ Single characters as identifiers 

A : = B + C DiV 2 

■ Multiple character identifiers 

RESULT 

COS 

PHIL 

■ String 

'THIS IS AN ALPHA STRING' 

2.1.2. Digits 

2.1.2.1. Syntax 

<digit>::=:^0|lj2|3i4|516l7|8l9 

<octal digit>::= 011121314151617 

2.1.2.2. Semantics 

All numbers are included in the valid character set for UNIVAC 1108 Extended 
ALGOL. Digits are used for forming numbers, identifiers, and strings. 
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2.1.2.3. Restrictions 

Only zero thru seven are valid for octal representations. 

2.1.2.4. Examples 



1, 129, 100000 

31.7, 7.0E2 

TOTAL, A2. RESULTIO, SWT200 

6, 137, 643 



m integer numbers 

m real numbers 

E identifiers 

H octal numbers 

2,1.3. Delimiters 

2,1.3.1. Syntax 

'delimiters. ; ^ <operator> j <separator> | *'bracket> ] cdeclarator> j <specificator> 

.operator> : : <arithmetic operator> j <relational operator> 

I <logical operator> | <sequential operator> 

Orithmetic operator> : : = -\ | - | * | / | DIVj ** 1 MOD 

'-relational operator> : : = < | -= | > | LSS | LEQ | EQL| GEQ | GTR \ NEQ 

•bn'jcal operators: :- EQV | IMP | OR | XOR | AND | NOT 

<:sequentiai opeiator:> ; : =. GO TO i IF | THEN | ELSE | FOR \ DO | READ] 
WRITE 1 SPACE I REWIND | LOCK 1 CLOSE 1 FILL | ZIP | ON | 
EXECUTE 1 EVENT | WAIT | DELETE | SORT | MERGE \ RELEASE | 
SAVE 1 PAGE I DBL 1 NO 1 PURGE | UNTIL 1 WHILE I STEP | REVERSE 

<separator> : : = , j ; | : | : - | & j COMMENT | % \ <single space> 

<bracket> : : - ( j ) | C | TJ! BEGIN | END | # i .[I I .C 

declarator.:: = OWN I INTEGER 1 REAL 1 COMPLEX 1 BOOLEAN | ALPHA ! 
DOUBLE i TASK 1 EVENT { ARRAY \ SWITCH 1 LABEL i 
FORWARD I PROCEDURE | FILE 1 SWITCH FILE 1 FORMAT I 
SWITCH FORMAT 1 LIST i SWITCH LIST ! MONITOR! DUMP j 
DEFINE I ABSORB 1 NAMELIST 1 LINE! IN I OUT I CORE 



<specificator> 
2.1.3,2. Semantics 



VALUE 



Delimiters have a fixed meaning and their basic function, as implied by their 
name, is obvious. 
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2.1.4. Spaces 



Spaces can be used between language elements for readability, but in general, 
spaces may be used or omitted. Exceptions are where the space becomes the 
delimiter when separating basic components such as reserved words, identifiers, 
logical values, unsigned numbers, and multi-character delimiters. 



2.1.5. Comments 
2.1.5.1. Semantics 



In order to include explanatory text at various points in a program, the COMMENT 
convention is included. 

The sequence of basic symbols: is equivalent with 

; COMMENT <any sequence not containing ;> ; ; 

BEGIN COMMENT <any sequence not containing ;>; BEGIN 



END <any sequence not containing END or 
WHILE or UNTIL or ; or ELSE> 



END 



2.1.5.2. Examples 



10 



20 



30 
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2.1.6. Identifiers 

2.1.6.1. Syntax 

<identifier>: : = <letter> I <identifier> <letter> 1 <identifier> <digit> 



2.1.6.2. Semantics 



Identifiers are used to name labels, variables, switches, formats, lists, arrays, 
procedures, files, and programs. The same identifier can be used to denote dif- 
ferent quantities if declared in different blocks. 



UME-7636 



UNIVAC no8 
EXTENDED ALGOL 



SECTION: 



2.1.6.3. Restrictions 



I dent Hi ers must begin with a letter and contain only letters and digits. Any 
combination, beyond the first letter, of letters or digits or both is permissable. 

Reserved words of UNIVAC 1108 Extended ALGOL may not be used as 
identifiers. 

No space may appear within an identifier. 

Identifiers may be any number of characters in length. However, only the first 
12 characters are unique. 



2.1.6.4. Examples 
A 

AC 
MATRIX 



DC220 

AC110TO220 

A1B2C3 

EXAMINATIONANNUAL 

EXAMINATIONMEDICAL 

EXAMINATIONMATERNITY 

NOTE: The last two identifiers are not unique because their first twelve 

characters are identical. The identifier immediately preceding the last 
two is unique; the twelfth character differs. 
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2.1.7. NUMBERS 

2.1.7.1. Syntax 

<number> : : = <unsigned number> | + <unsigned number> | - <unsigned number> 

<unsigned number> : : = <decimal number> | <special exponent part>| <decimal 

number> <exponent part> 

<decimal number> : : = <unsigned integer> | <decimal fraction> ] <unsigned 

integer> <decimal fraction> 

<decimal fraction> : : = . <unsigned integer> 

<special exponent part> : := @ <integer> 

<exponent part> : : = @ <integer> |E <integer> |D<integer> 

<integer> : : = <unsigned integer> | + <unsigned integer> j - <unsigned integer> 

<unsigned integer> :' : = <digit> ] <unsigned integer> <digit> 

2.1.7.2. Semantics 

Numbers may be of four basic types, INTEGER, REAL, DOUBLE, or COMPLEX. 

Unsigned numbers are composed of digits and the following basic symbols: 

+, -, E, ., @, D. 

Integer numbers are positive or negative whole numbers or zero. 

The limits of an integer number are + 2^^ -1 (34, 359, 738, 367). 

A number is considered as REAL (single precision floating point) if it contains 
a decimal point and/or E or @ in the exponent. Real numbers have one to eight 
significant digits. The limits of a real number are approximately ± 10 °. 

A real number may be expressed in several ways. It need not contain a decimal 
point if it contains an exponent part. If a decimal point is used, it can appear at 
the beginning of the number or embedded between two digits. An exponent may 
follow a real number if it is preceded by E or §. The following are acceptable, 
ways of representing the real number 256: 

25.6E1, 25.6E+1, 2560.0E-1, 256.0, .256E3, 25.6@1, .00256@5. 

A number is considered as DOUBLE (double precision floating point) if it is 
REAL with more than 9 significant digits or contains D in the exponent. Double 
precision numbers may have up to 18 significant digits. The limits of double 
precision numbers are approximately +10- 
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In the 1108 hardware representation the important difference between integer and 
real numbers is that real quantities are stored in the computer in floating point 
form. If arithmetic is done on a combination of REAL and INTEGER values the 
result is always REAL in UNIVAC 1108 Extended ALGOL. 

NOTE: At compile time, numbers which exceed the allowable number of digits 
are flagged - CONSTANT TOO LARGE- and an unreliable result is 
returned. 



2.1.7.3. Restrictions 



Only the special exponent part,, @<inte4er>, is allowed to stand alone as a real 
number. 



2.1.7.4. Examples 

■ Unsigned numbers 

1234.567 
@68 

1234.56(5)78 ^ 
1234.56E78 



Unsigned integers 

6 

69 

253647 

34359738367 



■ Decimal numbers 

1356 
.666 
1234.567 



Decimal fractions 

.6 
.69 



■ Exponent part^ 

@66 

@-36 

@+63 

E-7 

E06 

D6 

D36 

■ Numbers 
number 

123 

123.5 

123E+2 

123@-3 

12345678910.5 
1234. 5D6 

@12 

E+5 



type 

integer 

real 

real 

real 

double precision 

double precision 

real 

invalid 



■ Special Exponent part 

@63 

■ Integer number 

6 

+63 

-636 
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2.1.8. Strings 

2.1.8.1. Syntax 

<string> : : = '<open string>' 

<string bracket character> : : =' 

<open string> : : = <proper string>j '<open string>'|<open string> <open string> 

<proper string> : : = <any sequence of four thousand ninety six or less basic 
symbols>|<empty> 

2.1.8.2. Semantics 

In order to enable the language to handle arbitrary sequences of basic symbols the 
string bracket character is used. Strings are used in move statements (see 6.10), 
file declarations, label part {see 11.2.2), and format declarations (see 11.2.4.). 

Proper strings are used following the COMMENT separator and the END bracket 
with the Special restrictions that are noted. 

2.1.8.3. Restrictions 

■ Within a proper string a single quote must be represented as two quotes to 
yield one, i.e., 'This is a "string" '. 

n Within the label part of the file declaration, the string is limited to twelve 
alphanumeric characters. This is a restriction of the 1108 file labelling 
system, 

■ A string used within an arithmetic expression as an alpha constant is 
limited to any combination of six alphanumeric characters and/or special 
symbols of the UNIVAC 1108 Extended ALGOL. 

■ Proper strings following the END bracket can be any sequence of basic 
symbols not containing END, ;, WHILE, UNTIL, or ELSE. END, ELSE, 
WHILE, UNTIL, and ; stop the scan legally; any other operator appearing in 
the string will stop the scan and be marked in error, 

■ Proper strings following the COMMENT separator can be any sequence of 
basic symbols not containing a ; . 



2.1.8.4., Examples 
■ String 



'ANY COMBINATION OF LETTERS, DIGITS, AND/OR SPECIAL CHARACTERS 
NOT TO EXCEED 4096' 

'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789*/.@CD #) - + <=> & $(%:.' 
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2.1.9. Constants 



2.1.9.1. Syntax 



<constant> : : = <Boolean constant>| <alpha constant>|<octal constant>| 
<complex constant>i<number> 

<Boolean constant> : : = TRUE| FALSE 

<alpha constant> : : = '<any sequence of six or less characters >' 
<octal constant> : : = %<octal number>|%D<octal number> 
<octal number> : : = <octal digit>l<octal number> <octal digit> 
<complex constant> : : = COMPLEX (<real part>, <imaginary part>) 
<real part> : : = <real number> 
<imaginary part> : : = <real number> 



2.1.9.2. Semantics 



Constants are quantities, characters, or character strings whose values do not 
change, or are regarded as fixed, during a certain sequence of program steps or 
mathematical operations. 

The Boolean constants are TRUE and FALSE. 

The % signifies an octal constant. Octal constants are treated as integers. 

The % followed by a D signifies a double precision constant, which will be 
treated as double precision floating point in all arithmetic operations. 

The string bracket character (') is used as the beginning and ending delimiter for 
strings. 

For number see section 2.1.7. 
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2.1.9.3. Examples 

alpha constants 

•KEY"S' 

'DATE' 

g 1 1 I 

octal constants 



%3742 

%432 
complex constant 

COMPLEX (1.0,0.1) 

COMPLEX (9.9, 5.2@12) 
Boolean constant 

TRUE 

FALSE 



%D3742 
%D200712400000001277001423 
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3. GENERAL COMPONENTS 
OF EXPRESSIONS 



3.1. GENERAL 

The algorithmic language, ALGOL 60, is composed primarily oi arithmetic expres- 
sions, Boolean expressions, and designational expressions. Basic components of 
these expressions are numbers, constants, variables, logical values, function 
designators, and elementary arithmetic, relational, logical, and sequential operators. 

3.2. BASIC COMPONENTS OF EXPRESSIONS 
3.2.1. Variables 

3.2.1.1. Syntax 

<variable> ; : = <simple variable>|<subscripted variable> 

<simple variable> : : = <variable identifier> 

<variable identifier> : : = <identifier> 

<subscripted variable> : : = <array identifier> [3<subscript list>3] 

<array identifier> ; : = <identifier> 



<subscript list> : : 



<subscript expression>|<subscript list>, 
<subscript expression> 



<subscript expression> : : = <arithmetic expression> 



3.2.1.2. Semantics 



A variable is a designation given to a single value. This value may be used in 
expressions for forming other values and may be changed at will by means of 
assignment statements. The type of the value of a particular variable is defined 
in the declaration for the variable itself or for the corresponding array identifier. 
Subscripted variables designate values which are components of multidimensional 
arrays. Each arithmetic expression of the subscript ./ist occupies one subscript 
position of the subscripted variable, and is called a subscript. The complete list 
is enclosed in the subscript brackets \2 I]. The array component referred to by a 
subscripted variable is specified by the actual numerical value of its subscripts. 

Each subscript position acts like a variable of type INTEGER and the evaluation 
of the subscript is understood to be equivalent to an assignment to this fictitious 
variable. The value of the subscripted variable is defined only if the value of the 
subscript expression is within subscript bounds of the array. 
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The number of subscripts in a subscript list must agree with the declared di- 
mension of the array referenced. Subscript evaluation is from left to right within 
the subscript list and the result will be transferred to type INTEGER if the 
result is not of this type. 

3.2.1.3. Examples 

Simple variables 

VALUE3 

TANGENTVALUE 

DELTA 

Al 

B 

C999 

Subscripted variable 

AEI44:] 

MATRIX \2X MOD Y, PI/211 

VARPQ ClF P<Q THEN X ELSE Y, Z**2l] 

3.2.2. Function Designators 

3.2.2.1. Syntax 

<function designator> : : = <procecure identifier> <actual parameter part> 

<procedure identifier> :: = <identifier> 

<actual parameter part> ; ; = <empty>| (<actual parameter list>) 

<actual parameter list> : : = <actual parameter >|<actual parameter list> 
<parameter delimiter> <actual parameter> 

<actual parameter> : : = <expression>|<array row>|<array identifier>| 
<procedure identifier> | <format identifier> j 
<list identifier>|<file identifier>| 
<switch'identifier>|<switch file identifier>| 
<switch format identifier>|<switch list identifier>| 
<switch file designator>l<switch format designator>j 
<switch list designator> 



<parameter delimiter> 



) '<proper string>' ( 
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3.2.2.2. Semantics 

A function procedure is indicated by assigning a type to a procedure declaration. 

Standard library functions are available that may be referenced without being 
declared. Since the library function identifiers are not reserved, the programmer 
may declare functions using the standard library names, thereby over-riding the 
system routines within the scope of the function declaration. 

The standard library functions supplied for UNIVAC 1108 Extended ALGOL are 
described in Table 3-1. 

3.2.3. Time Function 

3.2.3.1. Syntax 

<time function> : : = TIME (<arithmetic expression>) 

3.2.3.2. Semantics 

The time function makes available time and date information relative to the 
program requesting it. The various functions provided for by particular parameter 
codes yield the time required by the system, or certain components of it, to exe- 
cute a program, or parts of a program. The time function can be any valid arithme- 
tic expression which must yield an integer value of through 4. For the valid 
codes, the following information will be provided: 



Code 





Result 

Current Julian calendar date in FD code, e.g., 



Year 

68 
67 



Day 

001 
304 



Total elapsed time from run start time through to time of request in 
seconds. 

Actual elapsed processor time in milliseconds. 
Binary zero. 

Time of day in milliseconds from midnight obtained from instantaneous 
clock reading. 



If the value of the arithmetic expression is not one of the valid integers, a 
run time error is generated. 

3.2.3.3. Examples 

TIME (0) 

TIME (4) 

TIME ( (A+B) DIV 2) 
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FUNCTION 
DESIGNATOR 


NUMBER OF 
PARAMETERS 


TYPES OF 
PARAMETERS 


TYPE OF 
RESULT 


RESULT 


DEFINITION 


ABS 


1 


INTEGER 
REAL 
DOUBLE 
COMPLEX 


INTEGER 
REAL 
DOUBLE 
REAL 


|x| 
|x| 
|x| 


Produces the absolute 
value of the argument 

X. 


ARCCOS 


1 


REAL 
DOUBLE 


REAL 
DOUBLE 


arccos (x) 
arccos (x) 


Produces the principle 
value of the arccosine 
of the argument x. 


ARCSIN 


1 


REAL 
DOUBLE 


REAL 
DOUBLE 


arcsin (x) 
arcsin (x) 


Produces the principle 
value of the arcsine 
of the argument x. 


ARCTAN 


1 


REAL 
DOUBLE 


REAL 
DOUBLE 


arctan (x) 
arctan (x) 


Produces the principle 
value of the arctangent 
of the argument x. 


COS 


1 


REAL 

DOUBLE 

COMPLEX 


REAL 

DOUBLE 

COMPLEX 


cos (x) 
cos (x) 
cos (x) 


Produces the cosine 
of the argument x. 


COSH 


1 


REAL 

DOUBLE 

COMPLEX 


REAL 

DOUBLE 

COMPLEX 


cosh (x) 
cosh (x) 
cosh (x) 


Produces the hyper- 
bolic cosine of the 
argument x. 


DOUBLE 


1 


INTEGER 
REAL 


DOUBLE 
DOUBLE 


double precision 
representation 
of X. 


Produces the double 
precision floating 
point representation 
of the argument X. 


ETEST 


1 


EVENT 


BOOLEAN 




Returns a TRUE value 

if event variable set, 
FALSE if event 
variables Clear. 


EXP 


1 


REAL 

DOUBLE 

COMPLEX 


REAL 

DOUBLE 

COMPLEX 


exp (x) 
exp (x) 
exp (x) 


Produces the ex- 
ponential function 
of the argument x. 


IMAGINARY 


1 


COMPLEX 


REAL 




Imaginary part of x. 


LN 


1 


REAL 
DOUBLE 


REAL 
DOUBLE 


In (X) 
In (X) 


Produces the natural 
logarithm of the 
argument x. 



Table 3—7. Staridard Library Functions 
(Part 1 of 2) 
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FUNCTION 
DESIGNATOR 


NUMBER OF 
PARAMETERS 


TYPES OF 
PARAMETERS 


TYPE OF 
RESULT 


RESULT 


DEFINITION 


MAX 


list of 


REAL 


REAL 




Returns the alge- 




expressions 


INTEGER 


REAL 




braically largest 
element of the 
argument list . 


MIN 


list of 


REAL 


REAL 




Returns the alge- 




expressions 


INTEGER 


REAL 




braically least 
element of the 
argument list. 


RANDOM 


1 


REAL 


REAL 




Random number 
generator. 


SIGN 


1 


INTEGER 


INTEGER 


x>0 :-l 


Produces one of the 






REAL 




x-0 :=0 


three values listed 
depending upon the 






DOUBLE 






value of the argument 






COMPLEX 




X <0 : = 1 


X. 


SIN 


1 


REAL 


REAL 


sin (x) 


Produces the sine 






DOUBLE 


DOUBLE 


sin (x) 


of the argument x. 






COMPLEX 


COMPLEX 


sin (x) 




SINH 


1 


REAL 
DOUBLE 


REAL 
DOUBLE 


sinh (x) 
sinh (x) 


Produces the 
hyperbolic sine of 
the argument x. 






COMPLEX 


COMPLEX 


sinh (X) 




SQRT 


1 


REAL 
DOUBLE 


REAL 
DOUBLE 


sqrt (x) 
sqrt (x) 


Produces the square 
root of the argument 

X. 






COMPLEX 


COMPLEX 


sqrt (x) 




TAN 


1 


REAL 
DOUBLE 


REAL 
DOUBLE 


tan (x) 
tan (x) 


Produces the tangent 
of the argument x. 






COMPLEX 


COMPLEX 


tan (x) 




TANH 


1 


REAL 
DOUBLE 


REAL 
DOUBLE 


tanh (X) 
tanh (X) 


Produces the hyper- 
bolic tangent of the 
argument x. 






COMPLEX 


COMPLEX 


tanh (X) 





Table 3-1. Standard Library Functions 
(Part 2 of 2) 
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3.2.4. Transfer Functions 

Transfer functions between any pair of quantities or expressions may be defined. 
The result of a transfer function being performed on an expression is that the 
result of an expression of one type is changed to another type. The standard 
transfer functions provided in UNIVAC 1108 Extended ALGOL are described 
in Table 3-2. 



TRANSFER 
FUNCTION USED 


TYPE OF INPUT 
ARGUMENT 


OUTPUT TYPE 
AFTER TRANSFER 


LIMITATION AND 
COMMENTS 


ENTER (X) 


REAL or 
DOUBLE 


INTEGER 


The value produced is 
the largest integer not 
greater than the value 
of X. 


FIXED (X) 


REAL or 
DOUBLE 


INTEGER 


The value produced is 
the rounded result of 
the value of x. 


REAL (X) 


INTEGER 

DOUBLE 

COMPLEX 


REAL 




DOUBLE (x) 


INTEGER or 
REAL 


DOUBLE 




COMPLEX (x, 0) 


REAL 


COMPLEX 




COMPLEX (REAL(x), 0) 


INTEGER or 
DOUBLE 


COMPLEX 





Table 3-2. Standard Transfer Functions 



3.2.5. Pseudo-Transfer Functions 

The pseudo-transfer functions, BOOLEAN and INTEGER, are provided so that 
Boolean operators may be applied to non-Boolean variables and arithmetic operators 
may be applied to Boolean variables. The value of the argument is not altered with 
the exception that when type BOOLEAN is applied to a type DOUBLE argument, the 
DOUBLE argument is truncated to type INTEGER. The format is as follows; 

BOOLEAN (x) - for X equal to type INTEGER, REAL, DOUBLE, or COMPLEX. 



INTEGER (x) - for x equal to type BOOLEAN. 
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4. EXPRESSIONS 



4.1. EXPRESSIONS GENERAL 

4.1.1. Syntax 

<expression> : : = <arithmetic expression> | <Boolean expression> | 
<designational expression> 

4.1.2. Semantics 

The primary entities of programs describing algorithmic processes ate arithmetic 
expressions, Boolean expressions, and desi^national expressions. 

4.2. ARITHMETIC EXPRESSIONS 

4.2.1. Syntax 

<arithmetic expression> : : = <simple arithmetic expression> | <if clause> 

<simple arithmetic expression> ELSE <arithmetic expression> 

<simple arithmetic expression> : : = <term> | <adding operator> <term>| 

<simple arithmetic expression> <adding operator> <term> 

<term> : : = <factor> ] <term> <multiplying operator> <factor> 

<adding operator> : : = + | — 

<factor> : : =: <primary> | <factor> ** <primary> 

<multiplying operator> ; : = ,^ | / j DIV | MOD 

<primary> : : = <unsigned number> ] <variable> | <function designator> j 
(<arithmietic expression>) | <constant> | <partial word 
designator> | <concatenate expression>| (<assignment 
statement>) 

<if clause> : : = IF <Boolean expression> THEN 
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4.2.2. Semantics 



An arithmetic expression is a rule for computing a numerical value. For simple 
arithmetic expressions, the value is obtained by executing the indicated arithmetic 
operations on the actual numerical values of the primaries of the expression. In the 
case of numbers, the value is obvious. For variables it is the current value, and for 
function designators it is the value that is assigned upon execution of the pro- 
cedure named. An alpha constant must not be greater than one word and is treated 
as an INTEGER constant. The value of partial ward designator primaries is the 
current value of the field as specified by left bit of field arithmetic expression 
and the number of bits in field arithmetic expression. The new value stored into 
the left base as a result of the application of the concatenate operator is the value 
of t he "concatenate expression primary. Finally, in arithmetic expressions enclosed 
in parenthesis the value must, through a recursive analysis, be expressed in terms 
of the values of the other kinds of primaries. 

The syntax for the general arithmetic expression includes an if clause which en- 
ables one of several arithmetic expressions to be selected for execution. The 
selection is as follows: The Boolean expressions of the if clauses are evaluated one 
by one in sequence from left to right until the value TRUE is found. The arithme- 
tic expression following the THEN delimiter is then executed. If the final Boolean 
expression value is FALSE, the expression following ELSE is executed. 

It is important to note that the syntax for UNIVAC 1108 Extended ALGOL permits 
the expression following THEN as v/ell as the expression following ELSE to be 
the general arithmetic expression. 

For example: 



1 


10 






20 


30 




40 


1 1 1 1 1 1 


^.LUJ.. 




J ...L 1 

iliFi 


_..L.J J. L^. 

„iBiE.i.2.L_ 


1 1 1 1 1 t 1 1 


1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 


1 1 1 il iF 1 


jBlEiIL 


_,XHJ_iNx__,JJl 


a_ELkSjE_L.^x.E2^ 


_._i._i.LjSxEi__jJi3i,;.,L 



Apart from the Boolean expressions of /'/ clauses, the constituents of simple 
arithmetic expressions must be of types COMPLEX, DOUBLE, REAL, or 
INTEGER (An ALPHA variable is treated as INTEGER). Mixed mode operations 
are allowed. The type of the result of a mixed mode operation will be according 
to the intersection of operand 1 and operand 2 in the following chart: 



OPERAND 1 




OPERAND 2 




COMPLEX 


DOUBLE 


REAL 


INTEGER 


COMPLEX 


COMPLEX 


COMPLEX 


COMPLEX 


COMPLEX 


DOUBLE 


COMPLEX 


DOUBLE 


DOUBLE 


DOUBLE 


REAL 


COMPLEX 


DOUBLE 


REAL 


REAL 


INTEGER 


COMPLEX 


DOUBLE 


REAL 


INTEGER 



Note that the result of a COMPLEX, DOUBLE operand pair yields a COMPLEX 
result with a zero imaginary part. 
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The floating point divide operator, / , yields a REAL result, even if both operands 
are INTEGER. 

The MOD operator yields the remainder of an integer division. If one or both 
operands associated with the MOD operator are of arithmetic type other than 
INTEGER, conversion to INTEGER will be performed previous to the execution of 
the MOD operation. 

DIV is the integer divide operator. Both operands associated with the integer divide 
operator must be INTEGER. 

The operation,fac^of ** primary, denotes exponentiation, where the factor is the 
base and the primary is the exponent. 

Writing i for a number of INTEGER type, r for a number of REAL type, and e for a 
number of either INTEGER or REAL type, the result is given by the following rules: 

a**i If i > 0; ai>ia*a...*a (i timesj, result of the same type as a. 

If i = 0, if a ^ 0, result of 1 of the same type as a 
if a = 0, undefined 

If i < 0, if a ^ 0, l/(a*a*a... *a) (the denominator has -/ factors), 

result of type REAL 

if a = 0, undefined. 

ait:it:r If a > 0, EXP (r*/n (a) ), result of type REAL 
If a = 0, if r > 0, 0.0, result of type REAL 

if r < 0, undefined 
If a < 0, always undefined 

It should be noted that both the base and the exponent may be of type DOUBLE or 
COMPLEX, with the limitations as indicated by the following chart that lists the 
type of the result at the intersection of the base and exponent pair. 



BASE 


EXPONENT 


INTEGER 


REAL 


DOUBLE 


COMPLEX 


INTEGER 


INTEGER 


REAL 


DOUBLE 


COMPLEX 


REAL 


REAL 


REAL 


DOUBLE 


COMPLEX 


DOUBLE 


DOUBLE 


DOUBLE 


DOUBLE 


* 


COMPLEX 


COMPLEX 


COMPLEX 


* 


COMPLEX 



*Illegal combination 

The sequence of operations within one expression is generally from left to right 
utilizing the following rules of arithmetic operator precedence: 



first: 



** 



second: * / DIV MOD 
third: + — 
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The expression between a left parenthesis and the matching right parenthesis is 
evaluated by itself and this value is used in subsequent calculations. Conse- 
quently the desired order of execution of operations within an express ion can 
always be arranged by appropriate positioning of parenthesis. 

The maximum value of an INTEGER result is ±(2-^^-l). If the result should 
exceed this value, the 1108 overflow indicator will be set as a result of a carry 
into the sign position. A hardware interrupt is not affected by fixed point overflow 
but the sign of the result will be changed. The maximum value of a REAL result 
is from 1037 to 10-38 and of a DOUBLE result is from 10^07 to 10-308. Character- 
istic overflow or underflow for all arithmetic operations yielding REAL or 
DOUBLE results can occur, causing an 1108 hardware interrupt. (The ALGOL 
programmer can capture this interrupt by use of the on statement (See Section 6.9).) 

4.2.3. Restrictions 

TASK and EVENT variables may not be referenced in arithmetic expressions. 

4.2.4. Examples 
Arithmetic Expressions: 

BETA+GAMMA**2M0D DELTA DIV EPSILON 

IF BOOLl THEN X-Y ELSE T**2 

TOTAL10+ (IF BAClOl THEN SIGMA ELSE IF BAdQj THEN SIGMA 10 
ELSE ZERO) 

IF B00L2 THEN A/B ELSE C 

Simple Arithmetic Expression; 
PI*R**2**H 
ARlEB,3ll- AR2CB*2,B+Cll.[;XM0D Y:R+Zl] 

AR2[:PW[X,Y,ZI|.[:E1:E2:] J /CAT[:i:]&(R*S),[:E3:MAX(F).1:E3:] 

Terms: 

A**2*(B+C); 

SIN(B.[^X:YI1+Z)/AR1[3R0W,C0LI]*0MEGA*(BETA-GAMMA) 
Factors: 

A 

A + *Fl (X) 

Y & ( (R+S) **X) [E1:E2:E3] 
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Primaries: 
A 

50.001 

AR [ROW,COL,L] 
PW.[E1:E2] 

CON & CAT [E1:E2:E3] 
C0S(E1/E2) 
(-A+B*C/D**2) 
INTEGER(B00L1)+BETA 
4.3. BOOLEAN EXPRESSIONS 

4.3.1. Syntax 

<Boolean expression> : : = <simple Boolean> | <if clausO <Boolean expression> 
ELSE <Boolean expression> 

<simple Boolean> : : = <implication> | <simple Boolean> EQV <implication> 

<implication> :: = <Boolean terni> ] <implication>IMP <Boolean term> 

<Boolean term> : : = <Boolean factor> | <Boolean term> OR <Boolean factor> | 
<Boolean term> XOR <Boolean factor> 

<Boolean factor> : : = <Boolean secondary> | <Boolean factor> AND <Boolean 
secondary> 

<Boolean secondary> : : = <Boolean primary> | NOT <Boolean primary > 

<Boolean primary> : : = <logical value> | <variable> | <function designator> | 

<relation> | (<Boolean expression>) | <partial word designator> 
<concatenate expression> j (<assignment statement>) 

<relation> : : =^ <simple arithmetic expression> <relational operator> 
<simple arithmetic expression> 

<relational operator> : : = < | r= | > | LSS \ LEQ | EQL | GEQ| GTR | NEQ 
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4.3.2. Semantics 



A Boolean expression is a rule for computing a logical value. The principles of 
evaluation are entirely analogous to those given for arithmetic expressions. 

It should be noted that since the if clause of a Boolean expression is defined to be 
IF followed by Boolean expression, a nesting of if clauses is perfectly valid (see 
examples). 

Variables, function designators, partial word designators, and the left base and 
right base of a concatenate expression entered as Boolean primaries must be 
declared BOOLEAN. 

An exception to the above statement is if the pseudo-transfer function BOOLEAN 
is applied to the result of an arithmetic expression. The least significant bit of the 
arithmetic argument will be tested for a TRUE or FALSE logical value. 

The logical operators, listed in the order (highest to lowest) of precedence of use 



are: 



NOT (negation). ' The negation of a TRUE Boolean variable is FALSE and 
the negation of a FALSE Boolean variable is TRUE. 

AND (conjunction). The conjunction of two variables is TRUE if and only if 
both Boolean variables are TRUE. 

OR (disjunction). The disjunction of two Boolean variables is TRUE if one 
of the variables is TRUE, or both of the Boolean variables 
are TRUE. 

IMP (implication). An implication of two Boolean variables is FALSE if the 
first Boolean variable, or antecedent, is TRUE and the 
second Boolean variable, or consequent, is FALSE; other- 
wise it is TRUE. 



EQV (equivalence). The equivalance operation on two Boolean variables is 
TRUE if and only if both are TRUE or both are FALSE. 

In addition to the above, the set of logical operators for UNIVAC 1108 Extended 
ALGOL includes the exclusive or function, XOR, which in Boolean expressions 
assumes the same priority level as the inclusive or, OR: 



XOR 



The result of the application of the exclusive or operation on two 
Boolean variables is TRUE if and only if one or the other, but not 
both, is TRUE. 



The Boolean primary, relations, yields a TRUE or FALSE result depending on the 
truth value of the indicated comparison between the named arithmetic expressions. 
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The relational operators are: 

LSS or < Less Than 

LEQ Less Than or Equal To 

EQL or ^- Equal To 

GEQ Greater Than or Equal To 

GTR or > Greater Than 

NEQ Not Equal To 

All relational operators have the same order of precedence. 

The order of precedence (from highest to lowest) for all operators in both arithmetic 
expressions and Boolean expressions is as follows: 



DIV MOD 



+ 



LSS LEQ EQL GEQ GTR NEQ 

NOT 

AND 

OR XOR 

IMP 

EQV 

It should be noted that all logical operators operate upon the whole 1108 word. The 
NOT, AND, OR, and XOR utilize the equivalent 1108 hardware instructions, while 
IMP and EQV can be defined in terms of AND, OR, and NOT operations. 

The truth value of a Boolean quantity is determined by testing the least significant 
bit of the word to be 1 (TRUE) or (FALSE). 
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4.3.3. Examples 

Boolean Expressions: 

BOOLl 

TRUE 

NOT SWl 

A+B>X**2 

IF Bl THEN X ELSE Y GEO 50 

IF X LSS Y THEN Bl ELSE B2 

IF Bl THEN B2 ELSE B3 

IF X = Y THEN Bl ELSE B2 THEN B3 ELSE B4 THEN A GTR B ELSE 
IF B5 THEN NOT B6 ELSE B7 

BIAND (IF B2 THEN B3 ELSE A GTR B)OR X+Y LSS T**S**R 

Bl OR B2 IMP B3 AND B4 OR B5 

Bl EQV X GEO Y 

4.4 DESIGNATIONAL EXPRESSIONS 

4.4.1. Syntax 

<designational expression> : ; = <simple designational expression> | <if clause> 
<designational expression> ELSE <designational expression> 

<simple designational expression> : : = <label> | <switch designator> | 
(<designational expression>) 

<switch designator> : : = <switch identifier> [<subscript expression>] 

<switch identifier> : : = <identifier> 

<label> : : = <identifier> 
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4.4.2. Semantics 

A designational expression is a rule for obtaining a label of a statement. Again, 
the principles of evaluation are entirely analogous to that of arithmetic expressions. 

In the general case the Boolean expressions of the if clauses will select a designa- 
tional expression. If this is a label, the desired result is already found. A switch 
designator refers to the corresponding switch declaration and, by the actual numeri- 
cal value of its subscript expression, selects one of the designational expressions 
listed in the switch declaration by counting from left to right beginning with zero. 
Since the designational expression thus selected may again be a switch designator 
this evaluation is obviously a recursive process. The subscript expression is de- 
fined to be an arithmetic expression and, so, evaluation is analogous. The result, 
however, if not of type INTEGER, will be converted to INTEGER so that a one to 
one mapping can exist between the set of positive integers and zero and the result 
of the subscript expression. 

If the integer value of the subscript expression is not a member of the set associatec 
with the switch identifier named, the switch designator is undefined and program 
control continues in sequence. 

4.4.3. Examples 
Designational Expressions: 

LABELl 

ENTRYPATH[N(M+1I] 

IF BOOLl THEN LABELl ELSE ENTRYPATH [N(+l2 

IF BOOLl THEN IF B00L2 THEN SWITCHTOljC ELSE IF B00L3 THEN 
LAST ELSE START ELSE COMPUTE 

SWITCH QF A>B THEN ELSE IF A=B THEN X ELSE yU 

Switch Designators: 
ENTRYPATH[X+Y] 
SWITCHTO QF Bl THEN X ELSE yH 
SWITCHTO QCTj 
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4.5. PARTIAL WORD DESIGNATOR 

4.5.1. Syntax 

<partial word designator> : : = <partial word operand> . [3<bit field description>] ] 
<partial word operand>, [<character field description>^ 

<partial word operand> : : = <variable> | (<arithmetic expression>) 

<bit field description> : : = <left bit of field>:<bits in field> | <left bit of field> 

<character field description> : : = <left character of field>:<characters in field> | 
<left character of field> 

<left bit of field> ; : = <arithmetic expression> 

<bits in field> : : = <arithmetic expression> 

<left character of f ield> : : = Orithmetic expression> 

<characters in field> ; : = <arithmetic expression> 

4.5.2. Semantics 

The function of the UNIVAC 1108 Extended ALGOL partial word designator is 
to allow operations on specified bit or character fields of a single or double 
precision word, rather than upon the entire word. 

The partial word operand may be of type INTEGER, REAL, DOUBLE, or 

COMPLEX. The following chart delineates the field variability for partial word 
references: 



TYPE OF OPERAND 


Left Bit 


RANGE OF FIELD 


No. Bits 


Left Char. 


No. Char. 




of Field 


in Field 


of Field 


in Field 


INTEGER 


0^35 


U36 


0^5 


U6 


REAL 


0^35 


l->36 


0^5 


U6 


DOUBLE 


0^71 


1^36 


0^11 


1^6 


COMPLEX 


0^71 


1^36 


0-^11 


l->6 



Note that when the partial word operand is double precision (DOUBLE or COMPLEX), 
any bit from to 71 may be specified as the left most bit, but the number of bits in 
the field may not exceed an 1108 single precision word of 36 bits. Accordingly, the 
left character of a double precision word may be indicated by an integer value from 
to 11, but the number of characters may not exceed 6. 
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The bit field and character field descriptions are arithmetic expressions. Therefore, 
like the subscript expression, the fields must be checked at run time» The compiler 
will convert the result of the arithmetic expressions designating the fields to type 
INTEGER if the result is other than INTEGER. The run time partial word routine 
will check to see that the sum of the INTEGER values for the two fields does not 
exceed 36 for single precision bit partial word operands or 71 for double precision 
bit partial word operands. The corresponding character limits are 6 and 11. The 
specified field of a partial word operand appearing as an expression will be extracted 
and right justified in the word. 

For a partial word designator appearing in the left part of an assignment statement, 
the indicated value will be stored into the specified partial word field. 

4.5.3. Restrictions 

A partial word designator in a left part list must be the left-most part. 

If a partial word designator is specified as an actual parameter in a procedure call 
statement, the corresponding formal parameter may not appear in a left part list. 

4.5.4. Examples 

MATRIX [5, 4].[LB:NB] 
GAMMA, [LC:NC] 
BIGWD. [34:20] 

(siN(x)),[:5:] 

(X+Y*Z), [L+2: N**2] 

A, [1:3] :=.B:=C: = D, [;i:3l]; 
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4.6. CONCATENATE EXPRESSION 

4.6.1. Syntax 

<concatenate expression> : : = <left base> <link part> 

<left base> : : = <variable> 

<link part> : : = & <right base> <link description> | <link part> 8zi <right base> 
<link description> 

<right base> : : = <general primary> 

<general prima ry> : : = <primary> | <Boolean primary> 

<link description> : : =[<left bit of left base>:<left bit of right base>:<number 
of bits in link>] 

<left bit of left base> : : - <arithmetic expression> 

<left bit of right base> : : = <arithmetic expression> 

<number of bits in link> : : = <arithmetic expression> 

4.6.2. Semantics 

The word concatenate means a chaining together of objects. The UNIVAC 1108 
Extended ALGOL concatenatQ expression allows such an operation up to word 
length for a single precision or double precision left base. Moreover, any bit field 
of the right base primary may be extracted and stored into any bit field of the left 
base variable, provided the fields are of the same length. Note the recursive syntax 
definition for the link part, signifying concatenation of any number of right base 
elements provided word left for the left base is not exceeded. 

The link description fields are all defined to be arithmetic expressions and so 
must be checked to be within limits at run time. 

The limits of variability for the link description fields and limit of the sum of the 
left bit of field and number of bits in field is as follows: 



CONCATENATE 


LEFT MOST 


NUMBER OF BITS 


SUM OF LEFT BIT AND 


OPERAND 


BIT IN FIELD 


IN FIELD 


NUMBER OF BITS 


INTEGER 


0^35 


l->36 


36 


REAL 


0-»35 


1^36 


36 


DOUBLE 


0^71 


1-^72 


72 


COMPLEX 


0-^71 


1-.72 


72 
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4.6.3. Restrictions 

When combining single and double precision bases, a meaningful result will be 
obtained only if the number of bit^ in field value does not exceed 36. 

4.6.4. Examples 

X&Y [LBX:LBY:NBl] 

X&Y [LBX:LBY:NB] & Z [LBX+B:LBY+Q:NB] 
R & ( (X+Y) *Z [0:20:16] 
DA&DB [36:0:36] 
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5. STATEMENTS. 

COMPOUND STATEMENTS, 
BLOCKS, AND PROGRAMS 



5.1. SYNTAX 



<statement> : : = <unconditional statement> | <conditional statement> | <iterative 
statement> 

<uncc)nditional statement> : : = <basic statement> | <compound statement> j <block> 

<basic statenient> ; : = <unlabelled basic statement> | <label> :<basic statement> 

<unlabelied basic statement> : : = <assignment statement> | <go to statement> | 

<dummy statement> | <fill statement> | <procedure statement> | 
<I/0 statement> | <zip statement> | <sort statement> | <merge 
statement> j <move statement> | <compare statement> | <activity 
statement> | <on statement> 

<compound statement> : : = <unlabelled compound statement> | <label> ; <compound 
statement> 

<unlabelled compound statement> : : = BEGIN <compound tail> 

<compound tail> : : := <statement> END | <statement> ; <compound tail> 

<block> : : = <unlabelled block> | <label> : <block> 

<unlabelled block>: : =<block head> ; <compound tail> 

<block head> :: = BEGIN <declaration> | <biockhead> ; <declaration> 

<conditional statement> : : = <if statement> | <if statement>ELSE <statement> | 
<label> : <conditional statement> 

<if statement> : : = <if clause> <statement> 

<if clause>: : =IF <Boolean expression> THEN 

<iterative statement>: : =: <for statement> I <do statement> 
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5.2. SEMANTICS 

The ALGOL statement is the fundamental unit of operation within the UNIVAC 1108 
Extended ALGOL language. StatQtneiu^ are grouped into three major categories: 
unconditional, conditional, and iterative. Unconditional statQtnents directly specify 
a particular action to be performed. Conditional statement^ will select one of several 
different courses of action depending on a calculated Boolean value. The itQtative 
statements describe a repetitive process and provide methods of forming loops in a 
program. 

Statements are normally executed consecutively as written. This sequence of 
sequential operation may be broken by unconditional statements which explicitly 
define a labelled successor, i.e., go to statements or by conditional statements 
which provide a means whereby the execution of a statement, or series of statements, 
is dependent upon the logical value produced by evaluation of a Boolean expression; 
i.e., it statements. 

In order for one statement to refer to another and make it possible to effect a trans- 
fer of control, it is necessary to be able to identify a statement. A statement is 
identified by a label. A statement label can be any valid identifier and is separated 
from the statement which it names by a colon (:); i.e., label: statement. 

Compound statements or blocks are sets of statements which are treated as a unit. 
Groups of statements forming a compound statement must be bracketed by the 
reserved words BEGIN and END. 



A series of statements or compound statements common to each other by virtue of 
the defining declarations ate enclosed within the statement parentheses, BEGIN 
and END, and constitute an ALGOL block. 

Every program must at least be one block and may be composed of many blocks; 
that is, it must start with a BEGIN, be followed by any necessary declarations, 
then be followed by the statements of the program, and terminate with an END. 

Every block automatically introduces a new level of nomenclature. 

The whole program is a block and declarations at the beginning of the outermost 
block refer to the whole of that and any nested blocks; i.e., global variables. 
Declarations at the beginning of inner blocks ate only known within the inner block 
in which they are declared; i.e., local variables. An identifier declared in one block 
is undefined in any block that is not internal to it. Should an identifier declared in 
an inner block already have a meaning established in the encompassing outer block, 
then the outer block meaning is temporarily ignored. At the end of the inner block, 
the outer block meaning is restored. Hence, the range of a declaration extends over 
the whole of the block in which it is declared, including all inner blocks, unless the 
identifier is redeclared in such an inner block. If redeclared, the new declaration 
holds for the redeclaring block and all subsequent inner blocks until the END 
bracket of the declaring block is encountered. 
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The fundamental concept of local and global identifiers is demonstrated in the 
schematic diagram of block structure shown in figure 5-1. In Figure 5-1 the variables 
A, B, C, and BI are local to block Bl and global to blocks B2, B3 and B4. The 
variable AI is local to Bl, global for B4 and redefined with the value declared in B2 
as local for B2 and global for B3. The variables D and E are local to block B2, 
global to B3 and undefined in Bl and B4. Variables F and G are local to B3 and 
undefined for all other blocks, and variables H, J, K, L, and M are local to B4 and 
undefined for all other blocks, 

Bl: BEGIN 

REAL A, B, C; 
INTEGER AI, BI; 
B2: BEGIN 

ALPHA D, E, AI; 
B3: BEGIN 

REAL F, G; 
END B3; 
END B2; 
B4: BEGIN 

ALPHA H, J; 
REAL K, L, M; 
END B4; 
END Bl; 

Figure 5—7. Schematic Representation of Block Structure in ALGOL, 
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B. UNCONDITIONAL STATEMENTS 



6.1. GENERAL 

6.1.1. Syntax 

<unconditional statement> : : = <basic statement> | <compound statement> j <block> 

<basic statement> : : = <unlabelled basic statement> | <label> : <basic statement> 

<unlabelled basic statement> : : = <assignment statement> | <go to statement> j 
<dummy statement> | <fill statement> | <procedure statement> | 
<I/0 statement> | <zip statement> | <on statement> | <move 
statement> | <compare statement> | <sort statement> ] <merge 
statement> | <activity statement> 

<cornpound statement> ; : = <unlabelled compound statement> | <label> : 
<compound statement> 

<unlabelled compound statement> : : = BEGIN <compound tail> 

<compound tail> : : = <statement> END | <statement> ; <compound tail> 

<block> : : = <unlabelled block> | <label> :<block> 

<unlabelled block> : : = <block head> ; <compound tail> 

<block head> : : = BEGIN<declaration> | <block head> ; <declaration> 

6.1.2. Semantics 

Unconditional statements directly specify a particular action to be performed. 
This group of statements includes the basic constructs implied by the assignment 
statement, go to statement, procedure statement and I/O statements. Each basic 
statement listed will be discussed separately. 

6.2. ASSIGNMENT STATEMENT 
6.2.1. Syntax 

<assignment statement> : : = <left part list>,<arithmetic expression> j 
<left part list> <Boolean expression> 

<left part list> : : = <left part> j <left part listXleft part> | <partial word 
designator> : = 

<left part> : : = <variable> : = | <procedure identifier> : = 
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6.2.2. Semantics 



Assignment statements serve for assigning a value to one or more variables or 
procedure identifiers. The simplest form of an assignment statement is : variable, 
replacement operator (: =), expression; i.e., V : - E. 

Evaluation of the assignment statement proceeds in the following order: 

(1) Any subscript expression occurring in the variables of the left part are 
evaluated in sequence from left to right. 

(2) The expression following the final (right-most) replacement operator is 
evaluated. 

(3) The value of the expression is assigned to all left part variables, with 
subscript expressions, if any, having the values derived in the first step. If 
the value from step 2 yields a type different from that of a left part variable, 
an attempt is automatically made to convert the value to the type of the left 
part variable. 

Throughout UNIVAC 1108 Extended ALGOL, ALPHA variables are compatible 
with type INTEGER. Therefore, if the result of the arithmetic expression is of 
type ALPHA or INTEGER and an ALPHA variable appears in the left part list, 
the result will be stored unchanged. If the result is any other arithmetic type, it 
will be converted to INTEGER and stored into the ALPHA variable. 

6.2.3. Restrictions 

1. If the type of the expression is BOOLEAN, the left part list elements must be 
BOOLEAN. 

2. Neither TASK nor EVENT variables may be used in assignment statements, 

6.2.4. Examples 



1 10 20 30 40 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 |N|: 1= iNff |1 1; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 lAi: i=:iBi>iCI; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I ' 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ( 1 1 


. 1 1 ,A,I ,: r,B, l|: ,--=,C,l,: ,-,D,l,:, = |F, + ,G, ,D,I,V, ,J,; , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 |X|: 1= 1 Yi: p |Z i: i = iOi ; 1 i i i i I i i i i i i i i i I i i i i i i i i i I i | i i i | | 
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6.3. GO TO STATEMENT 

6.3.1. Syntax 

<go to statement> : : = GO TO <designational expression> 

6.3.2. Semantics 

A go to statQinent interrupts the normal sequence of operations and provides a 
method of unconditional transfer to the point in the program defined by the value 
of the designational expression. When the design at ional expression is a label, the 
statement causes a transfer to the point in the program indicated by the label. In 
the case of a more complex designational expression, the next statement executed 
will be the one having the label indicated by the value of the designational expres- 
sion. 

6.3.3. Restrictions 

Labels must be declared in the block in which they appear as a statement label. A 
go tq statement cannot lead from outside a block to a point within that block; each 
block must be entered at the head of the block so that the associated declarations 
can be invoked. 

In the event of an undefined switch designator, the go to statement is equivalent 
to a dummy statement and transfer of control does not occur; normal consecutive 
sequence of statement execution continues. 

6.3.4. Examples 



1 




10 


20 


30 40 




1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




1 iCOiTiOi 


LiOOiPi.-i 1 1 1 1 1 


1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 







1 1 1 1 1 1 1 1 1 1 


1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




1 iGiOiTiOi 


S,W|T,CHAG3i3;i 


1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 




1 1 1 1 1 1 


ill II 


1 1 1 1 


1 1 1 1 1, 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




1 ,QO,T,Q 


1 ,F| ,A ,N,E,Q, ,0, 


Tl H, E, Ni 


S,W,T,CH,A|[7,3,-], iE,L,S,E, , L| Q Q Ft ; , , , , 
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6.4. DUMMY STATEMENT 

6.4.1. Syntax 

<dummy statement> : : = <empty> 

6.4.2. Semantics 

A dummy statement does not cause the execution of any operation. It may be 
used to place a label. 

6.4.3. Examples 



1 


10 


A 






20 


A 




30 


A 
40 


C 

c 


1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


LOOP: 




1 , 1 


1 1 1 


1 


1 1 


J- J 


1 1 1 


1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 


1 1 1 1 1 


1 1 1 1 1 1 1 1 




. , , 


1 1 1 


1 


1 1 


1 1 


1 1 1 


1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 


1 1 1 1 1 


1 1 1 l^i 1| : 1 1 




L_X_i_L 


1 1 1 


J.. 


1 1 


___X-J..._ 


L_i._J 1_ 


1, 1, 1 1 1 t. .1 


1 II 1 1 1 1 1 1 


1 1 1 1 1 



6.5. FILL STATEMENT 

6.5.1. Syntax 

<fill statement> :: = FILL <array identifier>[<row .designator>2] WITH 
<value list> 

<array identifier> : : = <identifier> 

<row designator> : : = * | <row>,* 

<row> : : = <arithmetic expression> | <row> ,<arithmetic expression> 

<value list> : : = <constant> | <value list> , <constant> |<string>| 
<value list>, <string> 

6.5.2. Semantics 

The fill statement causes one row of an array to be filled with a list of specified 
values. 

The row designator identifies which row is to be filled. The right most subscript 
position must contain an asterisk (*). In a single dimensional array only the 
asterisk is given as the row designator. 

If the arithmetic expressions used as row designators yield other than integer 
values, they are converted to INTEGER. 

The values specified in the value list will replace the current values of the row 
being filled. The number of elements in the row indicated may differ from the 
number of values in the value list specified. If the number is less than the number 
of elements, the elements with the largest subscript values will remain the same» 
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If the number of values is greater than the number of elements, the right-most 
values in the value list are ignored and only as many values will be used as exist 
corresponding element positions. 

RESTRICTIONS: 

Complex constants may not be used in a fill statement. 

6.S.3. Examples 



1 10 20 30 40 50 60 80 


._l...l LI 1 1 1 L 1_1 1 1 LI 1 i 1 , 1 1 1 1 1 1 1 1 1 1 

.__L 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 . 1 L 1 < 1 1 1 1 1 

_Li_i iFil|L|L, ,M|AiTiR|l |X, i[ ..J -i |W|liTiHi i4 ,6 ,2,. ,71, , ,-,3 

.._L.L_.L 1 , , 1 1 l_l 1 . 1 , 1 1 1 1 1 1 . 1 , 1 1 . 1 1 1 1 1 1 1 

1 1 1 1 1 . 1 1 > 1 . 1 1 < 1 1 


1 1 1 1 I 1 1 1 1 1 1 1 1 > 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 J 1 1 1 

. . 1 1 1 1 1 1 1 1 L 1 1 1 1 1 1 L . 1 1 1 1 , 1 1 i 1 i 1 1 , 1 1 1 1 , 1 . 1 1 L , 1 1 

7,6|.|4|2,,1 i%i3i7i6i,i |8| E|-| 1 , 2i; , i i i i i i 1 i i i i i : i i i 1 i i i i i i i i' , 
[ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 > 1 1 , 1 L 1 1 J J 1 1 III. 


__j_,j 1 iF,l,L,L, lAI^R,Y,3iD| i[,3,,,1|,i*,], ,W|I,T|H, ,0|.,2i5,, 


i3i7,2u, |'iEiX,TlE,NiDiE,Di 1 A, L,Gi 0, Li ' , , , i%i 71 3, 6i , , 2, 4i, , ,-,4i 31 6i . , 8, 2i Di-i 3i ; , i. 



6.6 PROCEDURE STATEMENT 

6.6.1, Syntax 

<procedure statement> : : = <procedure identifier> <actual parameter part> 

<procedure identifier> : : = <identifier> 

<actual parameter part> ; : = <empty> |(<actual parameter list>) 

<actual parameter list> : : = <actual parameter> | <actual parameter list> 
<parameter delimiter> <actual parameter> 

<actual parameter> : : = <expression> | <array row> | <array identifier> | <procedure 

identifier> | <file identifier> | <format identifier> | <list identifier> | 
<switch identifier> | <switch file identifier> | <switch format 
identifier> | <switch list identifier> | <switch file designator> | 
<switch format designator> | <switch list designator> 

<parameter delimiter> : : = , l)'<proper string>'( 

<array row> : : = <array identifier> [<row designator>^ 

6.6.2. Semantics 

A procedure statement calls for the sequential execution of a previously defined 
procedure body. The procedure identifier designates the particular procedure body 
to be executed and the actual parameter part supplies the arguments to be passed 
to the procedure^ 

Formal and actual parameters must correspond in number, type and kind. This 
correspondence must also be positional, i.e., correspondence is checked by 
comparing, in the order given, the formal parameter list of the procedure declaration 
with the actual parameter list of the procedure call. 
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If the foTtnal and actual parameters do not agree in kind or type, or if they differ in 
number, an error message will be generated at run time. Correspondence is checked 
at run time so that the actual parameters of a referenced external procedure may 
also be verified. 



Basically the procedure statement operates as follows: 

All formal parameters which were value declared in the heading of the 
procedure declaration are assigned the values of the corresponding actual 
parameters; assignments are considered as being performed explicitly before 
entering the procedure body. These formal parameters subsequently are treated 
as local to the procedure body. 

All formal parameters which were not value declared are replaced by the cor- 
responding actual parameters throughout the procedure body. There is no 
conflict between identifiers inserted through this process and other identifiers 
local to the procedure body which are identical to the formal parameters^ 

The procedure 6ocfy, modified by value assignments and name replacements, is 
then executed. 

There are two means of calling for parameters within a procedure: call bv value 
and call bv name. For a parameter to be called by value it must be specified in 
the value part of the procedure declaration; all other parameters are considered 
called by name. 

6.6.2.1. Value Assignment (Call by Value) 

Procedure parameters called by value are evaluated once and a quantity, 
identified by the formal parameter, is created local to the procedure and the 
result of this evaluation is assigned to it. Thereafter, the corresponding actual 
parameter is inaccessible to the procedure unless the procedure is called again. 

Evaluation of actual parameters called by value and the subsequent value as- 
signment to their corresponding formal parameters is performed in the order given 
by the actual parameter list of the calling statement. All value assignments take 
place before entry is made into the procedure body. 

Actual parameters which may be called by value are arithmetic, Boolean, and 
designational expressions and array identifiers. 

If the actual parameter is an expression it is evaluated according to the rules 
previously defined for expressions and the value is stored in the local cell set 
aside for this parameter. 

If the actual parameter is an array identifier, the corresponding formal parameter 
must be used as an array identifier. An identical array local to the procedure is 
created and all current values of the actual array are then assigned to the cor- 
responding elements of the newly created array. Only declared CORE arrays may 
be used in this manner. 
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6.6.2.2. Call By Name 



Parameters called by name are re-evaluated each time they are referenced within 
the procedure body. An actual parameter called by name is treated as a non-local 
quantity and is accessible throughout the procedure. If the actual parameter is a 
simple variable called by name wherever the corresponding formal parameter ap- 
pears in the procec/ure body it is replaced by the identifier of the simple variable. 
If the actual parameter is a subscripted variable, wherever the corresponding 
formal parameter appears in the procecvre body, it is replaced by the subscripted 
variable; the subscript expression remains intact, and is evaluated each time it 
is referenced during execution. 

If the actual parameter is a partial word designator, it replaces the corresponding 
formal parameter throughout the procedure body. The partial word designator is 
referenced each time it is encountered during execution of the procedure. The 
corresponding formal parameter must not appear in the left part of an assignment 
statement. If the actual parameter is a function designator, the corresponding 
formal parameter is replaced by the function designator wherever it appears, and 
it is evaluated each time it is encountered during execution of the procedure body. 

When an expression is called by name, the corresponding formal parameter is re- 
placed by the expression. This expression, then, is evaluated each time it is 
encountered during execution of the procedure body. 

If the actual parameter called by name is an array identifier, the corresponding 
formal parameter is replaced by the array identifier wherever it appears in the 
procedure body. No local array is generated and any use of this formal parameter 
in the procedure body references the actual array designated by the array identi- 
fier. 



If the actual parameter is a switch identifier, switch file identifier, switch format 
identifier, or switch list identifier, the corresponding formal parameter is re- 
placed by the respective identifier wherever the formal parameter occurs in the 
procedure body. Thus a switch, switch file, switch format, or switch list declara- 
tion which has been declared outside the procedure body can be accessed during 
the execution of the procedure body. 

If the actual parameter passed is a procedure identifier, the corresponding 
formal parameter is replaced by the procedure identifier wherever the formal 
parameter appears in the procedure body. Access can thus be made to another 
procedure which has been declared outside the procecfure body. 

If the actual parameter passed is a file identifier, format identifier, or list 
identifier, the corresponding formal parameter is replaced by the identifier of the 
actual parameter wherever the formal parameter appears in the procedure body. 
I/O statements in a procedure body can thus utilize files, formats, and lists 
which have been declared outside the procedure body. 

For value called parameters, the replacement of formal paramters by actual 
parameters occurs prior to execution of the procedure body. 
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For name replaced parameters, each time the replaced parameter is encountered, 
the mechanism goes outside of the procedure, re-evaluates, and then uses the 
value. 

Finally, the procedure body as modified by value and/or name replacement of 
parameters is executed. 



6.6.3. Restrictions 



A formal parameter which occurs as a left part variable in an assignment 
statement within the procedure body and is not called by value, can only cor- 
respond to an actual parameter which is a variable. 

A partial word designator must not be passed as an actual parameter if the 
formal parameter is to be used on the left-hand side of an assignment statement. 

An array used as an actual parameter must have the same number of dimensions 
as its corresponding formal parameter. Arrays used as formal parameters must 
have CORE specified if the actual parameter to be passed is a declared CORE 
array, or if it is a one dimensional array. 

A non-CORE declared array may not be passed to a formal parameter which is 
VALUE declared. 



6.6.4. Examples 



1 10 20 30 40 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 |P|R|0|C|1| 1 ( 1 N| A| R| A, ) i; 1 i i | , , , i i i i i i | i i i , , i i ^ j 1 _j_ xj. l._l.i_^i„ 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


, , , ,P,R,0,C,2, |(,A,R, l,[-,2,. i3,3,| , C, 0, N, S,T| 1 , ) ,; , I , , ., , , , , , , I , , , , i , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


, 1 1 ,P,R,0|C,3| |( ,S |l ,N (iA, + ,3,)i,| ,C,0,N,S,T,3, ,, , A| + i B, /,2,+ ,€, *|D| ; , I , , , , , , , 


1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 .1-1 ...1 1 1 1 1 1 



A more extensive set of examples is provided in the section on procedure 
declarations, 

6.7. I/O STATEMENTS 

All I/O statements will be discussed in section 11.3, Input/Output. 

6.8. ZIP STATEMENT 

6.8.1. Syntax 

<zip statement> : : = ZIP WITH <array row> 
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6.8.2. Semantics 



The zip statement allows one object program to initiate a completely separate run 
stream, which may include other compilations or executions. The zip statement 
causes information in the designated array row to be recognized as control card 
information. The array row must contain a'TSTART' control card followed by 
parameter information and a period. 

For a more detailed explanation of theVSTART control card see UNIVAC 1108 
EXECUTIVE Programmers Reference Manual, Section 5.4.7. 

The ▼ START control card has as its parameter the name of a catalogued file. This 
file may be assigned by the user externally of via an ALGOL file statement. The file must 
contain an actual run stream, which was created by theVOATA orVpILE processor 
or by an ALGOL program. 



6.8.3. Example 



1 10 20 


30 40 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


. J._ 1 - L L. J. . 1 ^ 


i^ iFil lL. 1 L 1 iMiAl T 1 Ri 1 X. J jC^ * il- lW 1 L i Ti Hi j 


LlifiS^T,A_,R[TjV^.^,FJ__jLiE,_l,_'J, 


.. J • 1 1 1 ; 1 i_^ 


;< 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 


L 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 .1 1 1 1 1 . 1 - L- 


1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 


, , ,Z, l,P, |W,I,T|H, ,M,A,T,R|I,X, ,^*,n ii 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 III 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 









In the example given FILEl could have been created in the following manner: 



20 



30 



40 



50 



1lAiS_lGu_.i Cl .. JiiL_LLLEj_l x, . i F|/i/i /i5i0i I 



▼jP|A|T 



▼i Ri Ui N, 



▼i A, L, G, 



A.I II I Li I Fill Li El 1 



J LJ ..1 J_ -i- 



J I L._.J i -,.i . i-J_J_J 

A- 1 1 J .i . 1 .1 J _I_J 



J I J 1 1 

_.l I J l_..l_ 



I R i Ui Ni LiaUi3i9 J9 .L6,.i0j2j ^iPjRJ _OlJiE|C|T| ,j 5lzj_5_iOL_l__x__|___j 



_ I 



ixijSA 



iB|E 



ALLi.g_i 1 1 ,^j_Ri At-.^! J 



' INi iR.EiAiLi iXi;i 



_L-LJ. J_ I -±-J-__L_J_J L_J U.._ I 

J I L_J I I I I l_J \ I I I L 



_J ^J i_ 



L .1 1 I.I. 
1-^1- I .- I - I- 

_.L K. I 1_.L 
_l l_^ ) l_.L.. 



i_ i I I I I 
L I I 1 I I 
_L_J_ .L_J„ 1 1 
.,L..i_ L_l.- I 1 
J_J I I L.J_ 



_1_J... I...1 L-...L..,J.__i_...l .1 ._!. I I 1. .1 .1. L..J .-.I- 

._L_ '-l.- . I __1 I., .J i ,L_I . .1 ..LI I L I ±_.i_J_^_.L 

-L.ri I._J J_i...i _L.L..I _L I I .1 .l_.l 1 I l_ 



J L._.J. .i„ .1_ 



.L._i L_ 

.1 _J L 



.L 



J_ifLl 



E|N 



-L'J I 1 L_J l_._L._i....l._L .1. i ,L...l ._L_._l.__i„.L.J I L^_. 

J — I L_l I I I I I I I I I I I I l_l lJ I I L. 



.. 1 1 I 

I L..L^ 



..L_J.... .1^ I . L 
.1 I 1. I. 1 
I I I I I 



_I_.J_ I...1 I J 

_L.l. L,J_ i 1 

.LI L.i.. I .[ 

. 1 i I ,.J_ L _L 

I I I I I I 



▼l EiNiDi ,. , iT 



nSi , C|QHT|R| 0|L| |C| A|R,D, ,7 , E, R, M, I H A |T, E.S , ^ T, H^E 



__qA|T,AL_jP,R,_0,C,E|S 



0,R 



When the zip statement is encountered the run in FILEl will be given to the 
Executive and the program ALGl will be compiled and executed. 
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6.9. ON STATEMENT 

6.9.1. Syntax 

<on statement> : : = ON <condition> <statement> | <0N <condition> 

<condition> : : = OVERFLOW | UNDERFLOW | ZERODIVIDE 

6.9.2. Semantics 

The on statQinent allows the programmer to specify an alternate statement sequence 
to be executed if an unusual condition occurs during program execution. When these 
statements are present, it will override the normal sequence of the operating system, 
After execution of these statements, control is transferred back to the point in the 
program following the statement at which the condition occurred. 

There are two ways in which the on condition is made inactive. Termination of the 
block in which the on condition statement occurred will inactivate the special 
action. If the same on condition is specified and no statement given, the condition 
reverts to normal system action. 

Valid conditions are: 



Condition Name 


Cause 


Normal System Action 


OVERFLOW 


Floating Point 
Overflow 


Comment and terminate 


UNDERFLOW 


Floating Point 


Comment, set result to 




Underflow 


zero and continue 


ZERODIVIDE 


Division by zero; 
floating or integer 


Comment and terminate 



These conditions will result in the normal system action unless an associated on 
statement is given. The ON condition holds for the scope of the block in which it 
is given until another ON condition is specified, which will override the previous 
one. 
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6.9.3. Examples 

Initiate special action 



1 10 20 30 40 50 60 80 


-J 1 __!_ 


-iBiliGJJL. 1 . _1.__L_I._J_.J 1 J_ L-I-l i J J__J L_l. l_l L L L 1 1 J_ I 1 J.lJ 1 1^ _UJ_1 l_llll_LlLlLll__lJlllllll,llllil,l|l] 
1 LI J Li.l 1 .._.L, J , L , , 1 1, , , I , , , , l_, ,. 1 , .1 L 1 , ,_.l ._! 1_L_L_.L ,_L_1 L, 1 , L, .L_, ,., i .1 , l ,.L, L , , J , J , L . , , _, , ■ 
_L L J_l8i£lAlLi lAl,1Bi,iO;i I_L.L_J I._J I J_J J l L_L. I ll J.L LJ_ J _L L._L__I L_L.J_La_^J^ L l J_ 1._L l__i ] _L_.1._L_L 1_I l L. l_L-i._Lj _L-L J _L._1 _1 1 i 

1 1 i < 1 l-l i 1 < 1 . 1 , 1 1 1 1 t 1 1 < 1 I Ill ,1 


P,R,0|C,E,D,U,R,E, ,R,E,C|0,V,E,R,(,l,),;, . I , , , I I , , I , I 


1 J__l 


_i_-L. ,_L.l ..1-L LL. __!_!_ L__J_,_..i J_L...J_ L_L_i_.L_L..J_L.L 1 , , ^ , L .1 _ 1_. 1 _i ._ L .^_LJ_L J.__L_ lJ_ , _^_^ J__ 1 i , J___, 1. _1 ,.,_,. J_. ,. L _ , ,__1 i ± LL . J.J ,.,_ 
J_J. 1 LJ ji_.LJ l.I_.J_. J..1 1 1 J J L L_J L J_-I_J l_L I.IJ J_J L_J 1 J_L- L__L ._LJ 1 1 1 1) . , < , ) 1 , 1 1 1 1 > 1 I..I 1 . J___l_| J , L, , ] J , L 

, , , ,E|N,Dj |O^Fj |P|R|0|C,E,D|U,R,E,; , 1 , , , i , i , , i 1 i , , , , i , , , 1 , , , , , , , , , | , , 


I 1 , |0|N, |0,V, E, R, F, L, a W, .BlE.G.I ,N, il,:,-,!,;! |R,E,C,0,V, E, R,( : 1 1 ) ,; , ,E|N,D,;, , , 1 , , ; , 1 , , , 1 , , i , 






.1.11 lAi: 1^1 r1 i0i*hi3lSi; 1 , i 1 < i 1 i 1 . i 1 i i , i 1 i i , i , < , i i 1 i < i i < i > , i 1 1 1 i , < , , , , 


, , , , , Ji,: ,=, ,A,.,A|;, ,C,0,M,M,E|N,T, I G, E,N,N,E,R, A;T, E,SI ,0, V, E, R, F, L, 0, W, - IM.AiXi 1 , Mi U M iliSl i E,X, C, E, E, D, EiDi ; 1 , _, . I , , i . j_, j_. j_ 


__l . A-X- 


, , , ,B,E,GIIN, ,C,0,M,M,E,N,T| ,HE,S,T,E,D, , B, LI 0,C, K, ; , , , , , , 1 , , , , , , , , 1 , 


,,,,,,,, ^., _,, , 1 , 1 ,,,,,,, i ,,,,,,,,, 1 ,,,,,,,. , ,,,,(,,., ( , , > , 1 


. i_a- 1— 


1 ,,,,,,.,, 1 ,,,,,,,,, 1 1 , , , 1 1 1 , , , , 1 , , , , , , 1 , , 


1 1 ; ,OiN, lU.NiDiEiRiFiLiOiW, |W,R,I T .E i , { ,F, 1 ,L| E , 1, , , F, Ui N, D, R,) ,; I , i , i i i i , i 1 , 1 i , i i i i , , , 1 , 








,1111 iBi: i=, ,l,/iAI/iA;i i C, Oi M, M E, Nl Ti iG, E,Ni E, R, AiTi El 5 i , Ui Ni Di Ei Ri FjJjJS Wj: i _ , 1 i < . i i : < < i 1 i 1 








, , , ,0,N, |0,V,E,R,F, L, 0,W, ;, |C,0,M,M,E,N,T, ,U,F10,r^ , Q V, E R, F, L,0|W, ,C,0,N|D, 1 ,T, 1 ,0| N, , S, Y,S ,T ,E ,M , , A| C, T, l,0,N, , l,S , , N W, ,,,,,,, 


, |P,E,R,F,0,R,M,E,D,;| , , , , | , , | 




1 ,,,,,,,,, 1 , 1 ,,,,,,,,, 1 , 1 1 . 1 1 1 1 1 1 , 1 1 1 1 1 , 1 1 1 


,,,,,,,,,. 1 , , , , , , , 1 , , , , , , , , , 1 ) , , 






1 , 1 lEiNiDl iNiEiSiTiEiDi iBiLIOiCiKi: 1 i i i i i i i , i 1 i i i i i i i j i 1 , i , i i i i i i 1 i i i i 1 , i , > , i i i i 






, 1 1 ,C,OiM|M,EiN,Ti ,T,HiE, ,0|Ni , S ,T , A,T, EiM, E,N!T ,S , , G, 1 , V, E, N, , 1 I N, iTHE , r><EiS iTIEiD, ,BiL,OiCiK, lAIRiE, , N, Oi i Li Oi H GlEiR, , 


J _L_L 


.,111, ! EiF,F,E,CiTiliV,Ei. 1 iSiYiS ,T lE, M, i AiCIT , 1 , Oi N, ,Wil,L, L INiOiWi iB.Ei iPiEiRIFiOiRiMiEiDi iFiOiRI , Ui NiDi E, Ri F, LiOiWl . i , , 


0,V,E,R,F,L,0,W, ,W|I,L,L, ,C,A,U,S,E, , T, ^1 ^ ,P, f^ qC,E, 0, U, R, E, , R, E, Q 0, V, El R, , T, Q , ^ E, ,C, Af L, I, E,D,; ,,,,,, 






_LX, .^, ,.J_. ,^_J.L. , J.J 1 ,., ...J... . . , , 1 ,..L. ._.....^, J^.._..^ . L.J......J^...._, ,. .^_l L. , . , . , . , 1.^ ,.. 




J _L i_lE,N|D| ,P,R,QG,R,A,M, ;, 1 ,,,,,,,, i 1 , 1 , . i i i i , , i 1 i ! i < , < 1 i i i > i i , , i 


1 1. 1 


1 1 1 J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 J 1 J 1 1 1 1 I 1 I I I I I I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ) 1 1 1 1 1 1 1 1 J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
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6.10. SOURCE TO DESTINATION STATEMENTS 

6.10.1. Syntax 

<source to destination statement> : : = <move statement> j <compare statement> | 
<transfer in statement> j <transfer out statement> 

<move statement>: : = MOVE (<source part>,<destination>) 

<source part> : : = <source> <slink> | <source part>,<source> <slink> 

<source> ; : = <subscripted variable> | <string> 

<slink> : : =,[<left char>:<number of char>] | <empty> 

<left char> : : = <arithmetic expression> 

<number of char> : : = <arithmetic expression> 

<destination> : ; = <subscripted variable><dlink> 

<dlink> : : - , [<left char>] 

<compare statement> : : = COMPARE (<source part>,<destination>) 

<transfer in statement> : : :== MOVE OCT (<source><slink>,<variable>) 

<transfer out statement> : ; = MOVE DEC (<variable>,<out destination>) 

<out destination> ; : = <subscripted variabie><slink> 

6.10.2. Semantics 

■ The source to destination statements provide for the transfer, comparison, or 
conversion of characters from one or more sources to a single destination. 

■ The move statement t^ansiers, left to right, characters from any number of 
sources to a single destination. 

The only limitation on the number of characters is that the destination array 
provided must be large enough to contain them. If this limit is exceeded, a run 
time error message will be given. 

■ The compare statement tests characters from any number of sources for equality 
with the characters of a single destination. The result of the comparison is 
indicated by the variable COMP. If all characters are equal, COMP is assigned 
the Boolean value TRUE, otherwise, COMP is FALSE. COMP will be declared 
by the compare statement if it has not been previously declared in the local 
block. 

■ The transfer in statement converts characters (presumably numeric fieldata) 
from a single source, to its octal equivalent, and stores this result in the 
destination variable specified; i.e. decimal to binary conversion. 
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The destination variable is assumed INTEGER. Since the number of characters 
specified in the source may be of any positive integer magnitude, care must be 
taken not to exceed the storage capacity of the destination variable, otherwise 
an unrecoverable error condition will result. 

In converting the source character string leading blanks are ignored. If the first 
non-blank character is a fieldata plus or minus it is used to determine the sign 
of the octal equivalent, otherwise the first non-blank and succeeding characters 
in the specified field are treated as positive numeric fieldata and when con- 
verted the result is considered positive. 

■ The transfer out statement moves octal data from a single source variable which 
is assumed type INTEGER, converts it to decimal in the field data form, and 
moves this result into the specified destination character locations; i.e., binary 
to decimal conversion. Note that out destination is unique to this statement. 
Care must be taken to see that the number of characters specified in slink is 
sufficient to handle the number being converted including a sign character, 
otherwise an unrecoverable error will result. If the number of characters plus 
the sign character is less than the number specified in slink, the string is right 
justified with leading blanks. 

■ In all source to destination statements the left char field must yield an integer 
value ranging from through 5; characters in a word are numbered left to right; 
values outside of this range will generate an unrecoverable error. Evaluation of 
the arithmetic expression of the number of char variable must yield an integer 
number with a value of one or more; a value of zero or less will generate an 
unrecoverable error. 

6.10.3. Restrictions 

■ Bit specification is not permitted in the source to destination statements. Bit 
specification is provided for in partial word operations. 

■ Slink may only be empty if the source is a string. 

6.10.4. Examples 

In the following examples, consider A, D, E, and H as declared ALPHA arrays 
and F, G, and I as INTEGER variables. 
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10 20 
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40 
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60 








80 
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1 1 1.11 , L_i_.i j_j.i 1 1. 1 1 1 1 1 1 i 


_l 1 i.r. 1 L_l..L 1 
/V,B,C,' u iDip.lj.Ii, 


, 1 .1_1_.1__L..1..1..J. , 1 L 

.i(iLOi-]i)i.;L...i-.i_,.i , 


1 1.1.1 11,1 


1 , , 1 1 1 
i , , 1 1 1 


...! J- 1 1.- 


1.1 1 , 1 

1 .L., .1 1 
1 ..Lj j. .1. 
1 1 , .1 1 
, 1 , , , 




l.l.._ 




jMiO,V|E, LdAf^, 1, ,,2,~|i.Cl i: \6,3,,\ 

1 1 1 1 1 l_l._l 1. ._!_.!.. L..1 1 1 1 1..1. 1 1 1 

,_C,0,M,PiAj_RLEi._j.( ,A["i li ,i.3r;i , IQ3 i m1 i 


~,,,'iJiA,NlUiA,R,Y 

Ill, 
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1 , , , , 1 , 


:.,.□ 30 ),,.,. 
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l,--i.6Zl,.' ,Fl),.-, , 

11,1 ...L_L.J...l 

1 , 1 ,..,.1... 1 , 1 

, ,r,i,: ,11271,),; 




.. 1.1.,., , , 1 


_.,_.i..i 1,1 

^1 l._Li._l 1 
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1 1 , , 1 

i_.l J .1 j_ 

..i__L_, , 1 
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,,!,,,,, 


.., ,_1 .1.1.1 











NOTE: The argument list of MOVE can be identical with that of COMPARE. 



UME-7636 



UNIVAC 1108 
EXTENDED ALGOL 



14 



6.11. SORT/MERGE STATEMENTS 

Because of the extensive parameter requirements of the sort statement and mer^e 
statement, they will not be covered here but will be handled separately in Section 
13 in this manual. 



6.12. ACTIVITY STATEMENTS 

Activity statQments provide multiprocessing capabilities; they are covered separately 
in Section 12 of this manual. 
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7. CONDITIONAL STATEMENTS 



7.1. SYNTAX 

<conditional statement> : : = <if statement> | <if statement>ELSE<statement> | 
<label>:<conditional statement> 

<if statenient> : : ^ <if clause> <statement> 

<if clause> : : = IF <Boolean expression> THEN 

7.2. SEMANTICS 

The conditional statement provides a way to change the sequence of execution of 
statements at run time. 

The execution of a conditional statement may be described as follows: 

The Boolean expressions of the if clauses are evaluated one after the other in 
sequence from left to right. 

If a TRUE value is found, the statement following THEN will be executed. Unless 
this statement defines its successor explicitly, the next statement to be executed 
will be the statement that follows the complete conditional statement. 

If the conditional statement consists only of the if statement and the result of the 
Boolean expression is FALSE control will pass to the statement following the com- 
plete conditional statement. 

If the delimiter ELSE is specified and the result of the Boolean expression is FALSE, 
the statement following THEN is by-passed and the statement following ELSE will 
be executed. 
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For further explanation note the following figure: 

(1) IF Bl THEN SI; S2 

{ * 

Bl FALSE 



f 



1 



(2) IF Bl THEN SI ELSE S2; S3 

{ f 

Bl FALSE 



f 



1 



(3) IF Bl THEN IF 82 THEN SI ELSE S2 ELSE IF B3 THEN S3 ELSE S4 ; SS 





1 




\ 




1 L. 


B3 FALSE 


J 


B2 FALSE 






statement 1 










1 
statement 2 





Bl FALSE 



f 



1 



(4) IF Bl THEN IF B2 THEN SI ELSE S2 ; S3 



t 



1 



B2 FALSE 



Bl FALSE 



NOTE: (3) illustrates that both the statements following THEN and ELSE 
may be conditional statements (ALGOL 60 only allows the statement follow- 
ing ELSE to be conditional) 

(3) and (4) denote that ELSE is always associated with the nearest THEN. 
Figure 7—1. Schematics of Conditional Statements 



A go to statement may reference a labelled statement within a conditional statement. 
Execution begins with the labelled statement and succeeding order from this point in 
the program is then determined in the same manner as if entrance had been made at 
the beginning of the conditional statement. 
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7.3. EXAMPLES 
IF CLAUSES 



IF A - B NEQ THEN 

IF BOOLl AND B00L2 THEN 



IF STATEMENTS 



,1 ,F, ,(,A,. |B|, 
1 l_j__.l_l_l1_l 



I ' l ^ i | B | | | L | 1 



,2,) ,:>jL,l |M,I |T, 

L 1 I .J__LJ I I L 



0|Ri | N|0|T| (|B|0| 



HE|N| ,P|R|qC|( |P 



L|2| ,A|N,D, |B|0|0 



1 ,,jPi2iL_;j__L 

.J__1_L_L_L_L_L 



L|3|), |T, HE|N, |G, 



_J I I L_l I I I— J I 1 1 I 1 I L- J i J_ 

Oi |T|0| ,L|A|B|Xi; , I I I 



CONDITIONAL STATEMENTS 



1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
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1 , ^ 1 ^ 1 1 1 


1 , , , ,1 , ^ , 1 ,,,, 1 ,,,,,,,,, 1 ,,,, , 


i 1 1 1 , I 1 1 1 1 . 1 1 1 1 1 1 1 1 1 Ill 1 1 1 1 1 1 1 1 1 1 1 1 1 
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B. ITERATIVE STATEMENTS 



8.1. GENERAL 

8.1.1. Syntax 

<iterative statement> : : = <for statement> | <do statement> 

8.1.2. Semantics 

Iterative statements are used as a convenient method of forming loops in a program; 
they permit the repetitive execution of a statement zero or more times. 

8.2. FOR STATEMENT 

8.2.1. Syntax 

<for statement> : : = <for clause> <statement> | <label>: <for statement> 

<for clause> : : = FOR <variable> :=<for list>DO 

<for list> : : = <for list element> | <for list>,<for list element> 

<for list element> : : = <arithmetic expression> | <arithmetic expression>STEP 
<arithmetic expression> UNTIL <arithmetic expression> | 
<arithmetic expression> WHILE <Boolean expression> | 
<arithmetic expression> STEP<arithmetic expression> 
WHILE <Boolean expression> 

8.2.2. Semantics 

A for statement provides a method of forming loops in a program; it allows for the 
repetitive execution of the statement following the for clause zero or more times. 

There are three distinct steps involved in the execution of a for statement: 

(1) Value assignment to the controlled variable. 

(2) Test of the limiting condition. 

(3) Execution of the statement following the DO. 



UME-7636 



UNIVAC 1108 
EXTENDED ALGOL 



SECTION; 



In a for list the initial value assigned to the controlled variable is that of the left- 
most arithmetic expression in the for list element. 

The ior list may contain more than one for list element. The process described by 
more than one ior list element in a for list is exactly like that described by writing 
a series of for statements, each with one of the for list elements, with identical 
controlled variables, and the same statement following each DO. 

The for list element determines what values are to be assigned to the controlled 
variable and what test to make of the controlled variable to decide whether or not 
to execute the statement following DO. When a for list element has been exhausted, 
the next element in the for list is considered, progressing from left to right. When 
all the elements in a for list have been utilized, the for list is considered exhausted 
and control is continued in sequence. 

All for list elements must be of a type compatible with the controlled variable which 
may be any type of a simple or subscripted variable. 

There are four kinds of for list elements: 



(1) The for list element as a simple arithmetic expression. 
FOR V : =<arithmetic expression> DO S; 
A for list element may be an arithmetic expression, in which case only one 
value is assigned to the controlled variable, V. There is no limiting condition, 
therefore no test is made. After assigning the initial value to the controlled 
variable the statement, S, following DO is executed. 



FOR V 



E. 



,.Ej^ DO S; 



A for list may contain a list of for list elements which may be arithmetic ex- 
pressions. In this case the controlled variable, V, is successively given the 
values of the arithmetic expressions E-i, Eo, Eo, ....E . The statement, S, is 
executed once for each value of V. 

(2) The For list element as a STEP-UNTIL element, 

FOR V : =:<arithmetic expression> STEP <arithmetic expression> 
UNTIL orithmetic expression> DO S; 

or for ease of description 



FOR V : = Ej STEP E2 UNTIL E3 DO S; 



where Ei is the starting or initial value of V 

£9 is the increment by which V is increased algebraically 
Eo is the limiting or terminal value of V 
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If the for list element is of the STEP-UNTIL element form, a new value is 
assigned to the controlled variable each time the statement following DO is 
executed. First, an initial value, that of E^, is assigned to the controlled 
variable. All subsequent assignments are equivalent to: V : = V + Eo, and 
are made immediately after the statement following the DO is executed. The 
limiting condition on the value of V is given by E^, which is evaluated each 
time through the loop. A test is made immediately after each assignment to V 
to determine whether or not the value of V has passed E^. If V has not passed 
E^, the statement following DO is executed. If V has passed E3, the element 
has been exhausted and the statement following DO is not executed. If the 
value of E2 is zero, the program may easily be caught in a closed loop. 

(3) The for list element as a WHILE element. 

FOR V : ^ <arithmetic expression>WHILE <Boolean expression>DO S; 

or for ease of description 

FOR V : = E WHILE B DO S ; 



where E is an arithmetic expression 
B is a Boolean expression 
S is an ALGOL statement 

The value of E is assigned to the controlled variable V as long as the logical 
value of the Boolean expression, B, is TRUE. First the value of E is assigned 
to the controlled variable. A test is made on the logical value produced by B; 
if the value is TRUE the statement, S, following DO is executed. This process 
is continued until the value of B is FALSE, at which time the list element has 
been exhausted. 

(4) The for list element as a STEP-WHILE element. 

FOR V : = <arithmetic expression> STEP <arithmetic expression> 
WHILE <Boolean expression> DO S ; 

or for ease of description 

FOR V : = El STEP E2 WHILE B DO S ; 

where E-, is the starting or initial value of V 

E2 is the increment by which V is increased algebraically 
B is a Boolean expression 

If the for list element is a STEP-WHILE element, it calls for a new value to be 
assigned to the controlled variable V if the value of B is TRUE each time the 
statement following DO is executed. First, the initial value, E^, is assigned to 
the controlled variable. All subsequent assignments are: V : =^ V + E2, and are 
made immediately after the statement following DO is executed. A test is made 
after each assignment to V to determine if the logical value of B is TRUE . If 
the value of B is TRUE, the statement following DO is executed; otherwise, 
the list element has been exhausted. 



UME-7636 



UNIVAC 1108 
EXTENDED ALGOL 



SECTION: 



Value of the controlled variable upon exit from the for statement varies. If the 
statement S has a go to statement leading out of the for statement, the value of 
the controlled variable is the same as it was before the go to statement was 
executed. 

If the exit is made from the for statement because of the exhaustion of the for 
list, then the value of the controlled variable is undefined and is not accessible 
after exit. 

8.2.3. Restrictions 

A transfer to a labelled statement within the scope of a for statement through the 
use of a go to statement from outside of the for statement is not allowed; the label 
is undefined. 

8.2.4. Examples 

■ for list elements 
A 

1 + 2 

10 STEP -1 UNTIL 
1 STEP 1 WHILE I - J 
A + B WHILE C>A 

■ for lists 
A, I I 2 

1, 2, 3, 4 STEP 2 UNTIL 100, 200 WHILE I>J, 400 WHILE I == J + K 

■ for clause: 

FOR I : - 1 STEP 1 UNTIL 10 DO 

FOR J : - 1, 2, 10, 20 STEP 2 WHILE J < I DO 
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8.3. DO STATEMENT 

8.3.1. Syntax 

<do statement> 

8.3.2. Semantics 



=== DO <statement> UNTIL <Boolean expression> | DO <statement> 
WHILE <Boolean expression> 



8,3. 



The do statement provides another method of controlling an iterative loop in a 
program. It allows for the repetitive execution of the statement following the DO 
zero or more times until the limiting condition is met or while the limiting condition 
holds. 

The DO-UNTIL construction executes the sfa^emenf following the DO repetitively 
until the value of the Boolean expression becomes TRUE. 

The DO-WHILE construction executes the statement following the DO repetitively 
until the value of the Boolean expression becomes FALSE. 

In both cases, program execution continues with the next statement in sequence 
when the condition is met. 

3. Examples 

In the following examples SI, S2....S5 represent any valid ALGOL statements. 
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a. DECLARATIONS 



9.1. GENERAL 

9-1.1. Syntax 

<declaration> 



= <type declaration> | <label declaration> | <switch declaration> | 
<forward reference deciaration> | <array declaration> | <absorb 
declaration> | <define declaration> | <monitor declaration> | 
<dump declaration> | <procedure declaration> | <]/0 declarations> 



9.1,2. Semantics 



Declarations serve to define certain properties of a quantity and assign an identifier 
to the quantity so that it may be referenced in a program. A declaration for an 
identifier is valid only for the block in which it is declared. Outside of the block in 
which it is declared, a particular identifier has no meaning and can be used for other 
purposes. 

Dynamically this implies that at the time of entry into a block (through the BEGIN 
since labels inside are local and not accessible from outside) all identifiers de- 
clared in the block heading assume the significance implied by the nature of their 
declarations. If these identifiers have already been defined by other declarations 
outside of the current block, they are temporarily given a new significance, and the 
encompassing outer meaning is forgotten. Identifiers not redeclared for the current 
block retain their old meaning. The following diagram demonstrates this principle: 
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C, E, and MAT declared in block 1 are global to block 2. The variables A, B, 
&,D are redefined in block 2 and therefore are local to block 2 and any reference to 
them in block 2 will reference the new meaning and not the meaning declared in 
block 1. In block 1 references can only be made to variables defined in block 1; no 
variables declared in block 2 are accessible to block 1. 

Upon exit from a block (through END, or by a go to statement) all identitiers de- 
clared for that block become inaccessible. 

Aside from identiiiers associated with the standard functions, all identifiers used 
within a program must be declared. No identifier may be declared more than once in 
any one block head. 



9.1.3. Examples 
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9.2. TYPE DECLARATIONS 

9.2.1. Syntax 

<type declaration>: ;-^<local or own type> <type list> 

<local or own type>: : -= <type> j OWN<type> 

<type> : : - INTEGER \ REAL 1 COMPLEX | BOOLEAN | ALPHA i DOUBLE 
TASK I EVENT 

<type list> : : = <simpie variable> \ <type list> ,<simple variable> 
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9.2.2. Semantics 



Type declarations serve to declare certain ic?e/7^i/iers to represent simple variables 
of a given type. 

Upon first entry into a block, all variables are initially set to zero. 

An additional declarator, OWN, may mark a declaration. Variables declared OWN 
retain their value upon exit from the block; at reentry into the particular block, 
variables maintain the value they had upon last exit. Values of variables not 
declared OWN ate cleared to zero upon reentry into the block and must be re- 
initialized by the program. 

Type declared variables are represented as follows: 

INTEGER •- Integral values represented internally by 36 bits. The range of an 
■ integer (in magnitude) is zero through 2'^^-l inclusive. 

REAL - Floating point numbers internally represented by 9 bits for sign and 
exponent of the number and the exponent and 27 bits for the fraction. The range 
of a real number (in magnitude) is 10-38 to 10^8 with approximately 8 digits of 
precision. Any real quantity which is less than 10-^8 jg represented by zero. 

DOUBLE ~ Floating point numbers internally represented by 12 bits for sign and 
exponent of the number and 60 bits for fraction. The range of a DOUBLE number 
(in magnitude) is approximately lO"^^^ to 10-^08 ^jth approximately 18 digits of 
precision. 



COMPLEX - Complex values of the form A + i*B where A and 3 are real numbers. 

BOOLEAN - Truth values, TRUE or FALSE. 

ALPHA — Any set of 6 or less characters. 

TASK and EVENT types are used in connection with the activity statements for 
multiprocessing of ALGOL procedures and will be discussed in Section 12, 
ACTIVITY CONTROL. 
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9.2.3. Examples 
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1 1 1 i 1 MiTiEiGiEiRi 1 lAi, iBi ,iCi, 1 DiOIGi; , i i i i i i i i 1 i i t i i i i 


1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 


1 1 |R|E|A|Li 1 |R| 1 1 , 1 R|2 1 ; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 { 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 i 1, 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 POiUiBiL |E| 1 iDiRil i; 1 1 1 1 i 1 i i 1 i t i i i i i i i 1 i i i i i i i 


1 1 1 1 i 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 CtO|M|P|L|E|X| 1 iC|X|l |, |C|X|2i; | i i i i i i i i i 1 i i i i i i i i i | i i i i i i i 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


, , ,B|0,qL,E,A,N| 1 jB,l,, ,B|2,,,B,3|;, ,,,,,,,, | , i 1 , , i , , , i 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


, 1 ,A,L.,P,H,A, , |N,A,ME:,,D,A,T|E,,il,D,E,N|T, ;, , , i , , , , , 





9.3. LABEL DECLARATION 

9.3.1. Syntax 

<label declaration> : : - LABEL <label list> 
<label list> : : -= <label>|<label list>,<iabel> 
<iabel> : : = <identifier> 

9.3.2. Semantics 

Labels are used to name certain points within a program so that these named points 
may be referenced by go to statements. 

The label declaration in a block heading defines those labels that will be used in 
that block to mark statements, 

9.3.3. Restrictions 

B All labels must be declared and have meaning only within the block in which 
they are declared. 

■ In nested blocks, a label must be declared in the head of the innermost block in 
which the associated labelled statement appears. 

■ A block can be entered only through the block head. 

■ If any statement in a procedure body is labelled, this label must be declared in 
the procedure body. 

■ A procedure body itself must not be labelled. 
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9.3.4. Examples 



.JL.._J_j L.J_i_i i l..Jl..LNLT|E[G,E^R, J ,; | j...,i,. j._ij.__.j j__j_.l.J..j.-1,.^ j_ L-_i._i. j,,_LJ--i -l.j,.) i„„i.. .i.„...i 

_.-L_i L I, i. i.._.i i._ I ..JLjAlBlEiLi I L4l.i.#jL|2i^_.i.Li3j.i„|Li4j_;^i_j.._l l__i__l_l...l,j _i._,j-_L_l.-a.__i^^.L,i...a--i i. 

_J 1 L_J I™i_L™L„i-™l, i.,J,J.I..a„.J-.J.„_J..JL™.L„,L.a.^.„.i_JL-.J...J_J._J_..l L_L_J l__i UJ U„1_lJ I 1 i I I i I 

_L^„J..._J.__J„.„i...].l:!iJ.J,', i_.l ~r~r. I i J J I . .L._.l. 1 .j I, _ l...l^_A I I L.i L. L -J- J_-J.. U^.J .1- _I„.J..,._L..J J.„ L I . i ( L 

._i 1 I .L_,_ I. ...J I J,.._L_J I, __,L*. I J^„1__J„-J... _L_ .L. i„..J_ -„!___ L_ J I !__J t 1 I L.±_L_J I I L I lJ 1 i i L_.J_,.__L I 

^^^..^LJ ^._i 1,^^.2,^,, ,jB,E,G,l,N, _,C,O^M,M.,E,N,T, ^B,L,0^C,K^2j;j ,__,_l ,;, , , _,_,I__,,lu^^^_.i...^i i i 

i.,_i__j i,._j._.lkLAx.BjE|L| _L iLi4j.j_1Ll5^^^^ i .i_ i, [ x,..i„„..i__..i i . i i ., i j.. J -i j i.- i i i j 



-i„.-i L 



— L I I I I JL-J„-J...-l 

- .L._-J L.,J 1 L L, X .L-A L_J. •a..-a-,.). ^.L J. J-,^i--L-i--J I...U... i,_U I 1 uJ...__L !_._. i_, J. .. J . J. , J- . I 

_.L„..L-.J^ J, J .,J ,1 J 1 

._.-.l 1 t L„,J_..L.i J_.L. I ...J J •.! . J „l. 1 U I 



10 



20 



30 



40 



aBiEiG,LN, , |C,0,MjM,E,N,T, ,B,L|0,C,K,.Lj:j x,_^ 



,..L.lJ. a. ..L- ,!._.. I _1 1 ..l.^,.i._J.-^i ..i_.J . ], .J I L,,. L 

L_ L_i-..-i . I I i__..,l 1- J..-_.X..J L \ L.i„„U_-,l..., I I 



1 L_J. M„a-J. ^.L J. J-,^ 

|Gi.O^__,.J,Oj ,L,4,; 



± 



_J. 



I I . L . 1, i, I 1 

J. J. L .J I I_.i, 1 J. L,.L. _J_. .U^L J _i.. J I L.J. J._i„,,.L„i_..J l._i 

.J i J.„..J 1 I J l,_._..U.l __1, 1.., 1 L..J 1 1 1 ,. I. j L.__i ..1 i. J .1 . i 

J I i^^i i_..l_.i..-.-lLi41 :_i j~t-:i j. . i.^^i i j_..l j i--J j_-.i,..j l 

I I I I I I L_L_l_J..™J__lij__L.-J«„l.,a-.-L_a_J I I L I L_J__J I L 



_.i L.J L_J 1 I i I I I I L__.J J L„^±._._l 

-X_J-J I L-J L_J_i_J_L_J L_i„l_i 



J-. J L_J l__l L. J.-.J-,-.iQ iPl iJaPj jLl^ii J 

J L_i_J La._l.._X,l^..L.-! I."l._i .LJ A._. 1.1 



.X.-,X ,1. J.. -1 1 1 1 1. 



1 1 L.__ L_a.. 



i..J J._Jl 

. I 1, 1 1 ..L_,l.„,,i^..L..„i.^_i 

._.lL J.. -L^J I 



J L-J I l-.-i I_-.J.-._^L-_J I I I L„-L-,l L,._i-_„1,J_.J— L 

'_ .J . . .1__L.^ l_.L^ L J_.,„l L,_l.„ J__i _i L„I_ 1 i 

1_._J L.a....a.J l„ 1,^.! L_J U.1 J _.1„ 1 J L. 1 1_ .i_J_.„i 



liJiLi. 



._.i LJ I i .LI I I 1^,1^1 iJlPi L^J.**'iTjIj.-LX-'XU1'-..1 L-,,LU...J._ 

_L., J L_„J L.... I L 1~J,±L'.. i.~m™ 1 - .±. .-. 1 J L - 1 L _L . J.. „L.-,..I L, ^ J L_J !._l i 

.J I L„.-.J l__„l_i_,..l..._J_ 1. .-.J..-,J..«,L J~--i-.-L--.J. a 1-J i- .1 L.,„-i L_.l L._.L.a 



J ...L... !.....L .1-...L. . L A...\. [ L... 1 J L.J I.... L 

J — I L-_L_i-_J I L_L..Lj L_a__i I I L 



J I I L.J__L_L 



J I L_i_j.. 



.1 i 1 L .1- a J„J._.L„L. I. I _ I. I ^l 

.1 -i i_ 1 J „,i L_-.i L...l_.l-_--.l J ._-J L.X,_.l 

lElNJDl l.P.i k) 0.1 C|. Kj 2j_; i,^ 1 _i j _L,_J__i_l__L_i„...J,-_l...^L..l_J l._.L_L.i.__.L_-J_J 1_-.J I I J„ J I 

L...A L I L._..1_.J_„I_J_.._.]-....I-.„1— J I. ...J._.i.._i„..,-I L_l.,-.l L _.L,„L_ J_ .L.„i 



-.1 i,.,._L..--.l. J ..a.__l- ., L L-, 



-L I I I 



J, J.,jIi..J-.jli-JL. 






.J l«„L.-.J I I L 



-l.„l„J I. 



_L„i_j_j_j-_a. 



._L-J L L. 



L 3 • _j ^ 

_i_.._L~.Lr.„LMrr:T„. 



..j_.a-.„j L.,..L. 



i_ I. i 1 ) . ..!,_.. J l..J.__..X_.l ._]._!._ J. ... .L-L 



J L_l I J 1_L. J L-fJ 



.l..J-_J J...J 1_ [.. 



^.L ,.i ,.i ..i.,-L...L..i...L.l, J.^..I_I 
I. 1- I.. I., 1., J._„.L__X__.L,._.J-,I._.l....l._.l-_.i._.i...J._.l..J J__i_X_l--._! I l._J I. 



i 



L__l._ 1.-X. ] I.. 1 



J J L.-J L„-Lkl.4.1,-.l..-iEiNl.PL l.,8iLiOiC|K_Ll.J_.,M J L L_..L L_..X__L_jJ L...±_.J l.._„.L ..L..-I L.J-. 

_X._.i L.l _._.!. .L.i .1.. 1 .! .1. I . 1 1 1 L..J .J... I L I i, I L.J. J .X i . .L. [^.J. J_J.. J__J_..L._.J.,..J.......,L..i.,_J_..._L i._..J L_l....l 

I I I I I I I I I I I I I I I L,.L L..J„«L„i_i..._i._J_J— .J I L_J — L-L_a„_i_.L„l._i„_J„ 



Note that in the previous example L4 is redeciared in Block 2. The GO TO L4 
statement of Block 2 will result in a jump toL4 in Block 2. The GO TO L3 state- 
ment of Block 2 will result in a jump to the outer block, thereby causing an end to 
Block 2. The reference to SWl in Block 2 could result in a jump within Block 2 or 
to Block 1, depending on the value of I. 
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9.4. SWITCH DECLARATION 

9.4.1. Syntax 

<switch declaration> : : = SWITCH <switch identifier> : = <switch list> 

<.switch identifier> : : = <identifier> 

<switch list> : ; = <designational expression> | <switch list>, <designational 
expression> 

9.4.2. Semantics 

A switch declaration defines the set of values of the corresponding switch designators. 
These values are given one by one as the values of the designational expressions 
entered in the switch list. With each of these designational expressions there is 
associated a positive integer, 0, 1, 2, ..., obtained by counting the items in the list 
from left to right. The value of the switch designator corresponding to a given value 
of the subscript expression (cf. section 3.5. Designational Expressions) is the value 
of the designational expression in the switch list having this given value as its 
associated integer. 

An expression in the switch list will be evaluated every time the item of the list in 
which the expression occurs is referred to, using the current values of all variables 
involved. 

A designational expression that appears as an element of a switch list will be 
evaluated at the level of declaration of the switch, not at the level of the switch 
designator if the levels are different. Note the following example: 



1 10 20 30 40 50 60 80 


_J_.J-.L.L L_J.. L 1 1 1 . 1 . 1 1 ] 1 , 1 1 1 , , 1 , ■ , 1 i i ,' , 1 ; 1 1 1 1 1 1 . 1 1 1 , 1 1 1 1 1 1 1 1 J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1.1 LL.;.1.1 L 1_. 

1 1 ,B,E,G,i |M| , 1 1 1 1 1 1 1 1 1 1 1 , 1 , , 1 , , , 1 1 , 1 ; 1 1 1 1 1 1 , 1 1 1 1 , 1 , 1 1 1 , , i 1 J J t J 1 J 1 1— l_i 1 1_±_L J_l L i J 1 1_L J_l_ 


1 1 L 1 1 1 1 1 1 N| T| E| Gi E| Ri , 1 A| , 1 B, ; ! 1 , , 1 1 , , 1 1 1 1 1 , , 1 1 1 , 1 1 1 , , , 1 , 1 1 , 1 , , , 1 1 1 , 1 1 1 1 1 , 1 , , J _L J i 1 ± i i i , , , i_ 
^1 1 1 ,_n J.iA,B|EjL, , ,L,1 ,,_,L,2,,|L,3,,, L|4|;, , , , I , , i i i , , , , I i , i i j i . , i i i i i ., _l i ._l.._i. j j_.l_i_j _j_ _l_lj l i j ._l i.._l. l .±_. i i i i i 
,,,,,, |;.,W,I|T,C, H , ,T|E,SiT,P|A,T,H, :, ,L,1 , ,, ,I|F, ,A,>,B 1 i i i , i , i , i 1 1 i i i , i i i i i 1 i , , 


,1 1 1 1 1 1 11 1 |T, H|E, N, ,L,2, ,E,LiS,E, , L, 3, , ,L, 4, ;, | , , , , , , , , , | , , , , , , , , _, | , , j i i i i , i 1 i i i i i i i. , i 1 j l_ i i. i i i.i.. i .. 


LJL±l±llllll -L-\. 1 1 1 1 1 1 1 1 1 , 1 1 ,, 1 1 1 1 1 1 1 1 1 1 1 1 , 1 1 .1 1 1 1 1 1 I 1. 1 1 1 1 J 1 1 1 J 1 L L J 1 1 1 L_L I J L J_ J_L 1 1 1 I 


L 1 L 1 1 I 1 1 1 1 1 iBiE^GjI lN| 1 1 1 1 1 1 1 1 1 1 1 J 1 1 1 1 1 1 1 1 1 1 1 , 1 1 1 1 , 1 1 1 I 1 ,, J 1 J 1 1 1 J 1 1 L L 1 1 L 1 1 1 J 1 1 1 


. 1 1 1 1 1 1 1 , 1 1 1 1 1 1 ,liN,T,E|G,E,R, il ,; 1,1!, 1 1 1 1 1 1 1 , 1 1 , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 iRiE,AiLl , lA, ;,,,,, ,1 1 ,,_,_,,,,, 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


_L_l_..i. 1.1.1.1 1 1 1 1 1 1 1 1 iL,A,B,E|L, , |L,1, ,il,2j;i 1 1 , 1 1 , 1 1 1 1 1 1 1 1 1 1 1 . 1 1 i.L.i i 1.1 1 .j. 1 j. .,. 1. 1 . 1. j .1. .1... 1. 1.. 1 1 1 1 1 1 1.1 1 i..i„.i„ 


&0, , TIQ T,E,S,T,P,A,T,H|CliZ,; , , , 1 1 , , 1 , , 




1 1 1 1 1 1 1 1 1 1 1 1 1 . 1 1 1 1 IM 1 1 1 1 1 ,. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 Ill 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ) 1 1 


1 1 1 1 1 1 1 1 1 1 1 iEiN,Di; J 1 1 , 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 Ill 




1 1 1 lEiNiD, .:, ,1,1,,,,, , 1 1 1 1 1 1 1 1 
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The designational expression TESTPATH Q ], is at a different block level from the 
switch declaration, TESTPATH . Furthermore, A, LI, and L2 have been re-declared 
in the inner block. If the value of I (The subscript expression of the switch designa- 
tor) should result in a reference to the first or second element of the switch declar- 
ation, then A, LI, or L2 of the outer block would be referenced; i.e. the reference 
would be at the level of the switch declaration. 



9.4.3. Example 



10 



20 



30 



40 



J i._J L__L_i_„i_.±„..L i i,- ,1 i _^L...a--L--.I— I i...L-i...,L-.X^_J I t L_J._1...J l__J I I i i I I L.,I,...L._i.....l .. L..^_.L_.I--J._ 

J J I I X_.I__1_. J- L ! i J L . J._ ..i . L ,L..J L_. L__L_,J I L_.l L_.-L^.J„„J 1, __ i-_J 1.— l__L..,.l.-..l-.,X- J. ..L_..i_„i L-_l I I J 

_L_-J I- J S |W i _ll JlClHL, , J..._ L SjWj .;_i =lL.l AlBj li._* 1 Ll.ALB.L2j_;_LU._.l_-i. J._J_.1_1 L^i I L.._J.._.1_L-. J_L„-J L._.L..-LJ— 



...J L-J-_1__J_,L-.X.-.._I L_l,.-L_J_._J. .J L„J L— J._L.J^^J J L._L_.J_ 



-L_1.-..1._L_ L, 



_i-i^^.X-,_-i_ .J- _1 L 



I I iSiWil iTiCiHl I iSiWi li : i^iLi li JLi 2i .J JiF I iBi. iTi Hi EiNi iSiWiUIUi i.^L...Si.E 



..L_J I L._L__L 



,_L._.,L,.I J-. J.. .J-^.l ,L.,.J.-J I I l-_.l i I I._I„J J I X_J L.__l.__.l 1 L_.-L I J L^__i_J_._l_ 



_L_J L-J„JL-1_JL_.X..-.1__.J I I._.J._.-1-L._1 -i 1 L^1._J i J.^_l..,,i..-J I L L._l \ L__l....l„L.„J_.a L .-_i._.L_J. 



.J l_J J 



xIzlLjO. 



J-L.fJ L L_ 



..L^L...l- 



9.5. FORWARD REFERENCE DECLARATION 

9.5.1. Syntax 

<forward reference declaration> : ; = <forward procedure declaration>|<forward 
switch declaration> 

<forward procedure declaration> : : ^- FORWARD <procedure type> PROCEDURE 
<procedure list> 

<procedure type> : : --= <empty> | <type> 

<procedure list>: ; = <procedure identifier> | ^'procedure list>,<procedure identifier> 

<forward switch declaration> : : --= FORWARD SWITCH <switch identifier list> 

<switch identifier iist> : : = <switch identifier> | <switch identifier list>, 
<switch identifier> 



9.5.2. Semantics 



The forward reference declaration establishes the existence of a forward referenced 
procedure or switch which cannot be declared in the normal manner prior to its use. 
A procedure or switch must be defined before it may be referenced in the program. 
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However, in the special cases such as (1) a procedure calls another procedure 
which in turn references the first procedure; (2) a switch references another switch 
v^hich in turn references the first switch; it is impossible to declare both procedures 
or switches before they reference each other. In order to use such recursive references, 
the forward reference declaration is used. The procedure identifiers in the procedure 
list or the switch identifiers in the switch identifier list will be marked temporarily 
as defined. The normal procedure declaration or switch declaration must appear 
later in the program. 



9.5.3. Examples 



1 10 20 30 40 50 


, , ,B|E|G|I|N, ,F|0,R,W|A,R|D| , P, R, QC, E,D, U, R, E, , P,; , | , ,,,,,,,, | 1 i i i , , , , , 


,,,,,,,, ,P|R,0,C,E,D,U,R,E, ,Q|; , , , , 1 1 1 


1 1 1 1 1 1 1 1 |B|E,G, l,N, , , , , , 1 , , , , 1 > 1 , , , < 1 1 1 1 .Ill 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 |P 1 ' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 ' 1 j 1 1 1 1 1 1 1 1 1 1 j 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




III. E,N,D,; 1 1 . . , 


1 , P|R,0|C, E, D, U, R,E, 1 F^;, , 1 , , 1 , , , 1 1 . 1 . i i . > i i i 


B|E,G,I,N 1 1 , , , 1 1 




1 1 1 1 . . . 1 1 1 • 1 1 . 1 1 . 1 1 . 1 1 . . 1 . 1 1 . . 1 . 1 1 1 1 . . . 1 1 1 1 . 1 . 1 1 . . 1 1 . 1 . . . 1 1 


I . . 1 . 1 1 . 1 |Q.' 1 1 1 ... 1 .. 1 . 1 1 1 


1 1 ' 1 1 .. 1 1 ... 1 1 1 1 1 1 1 . . 1 . 1 . 1 .11 


1 1 1 1 1 . 1 1 1 1 ' 1 1 1 1 1 1 . 1 1 1 1 1 1 . 1 ... 1 1 1 .. 1 1 1 . 1 1 1 1 ... 1 1 . 1 .. 1 1 . 


. E|N,D,;, , , 1 1 1 1 1 


1 1 . 1 1 1 il iNiTIEiGiE.R. 1 ili,iJu|K.;, . . i . . . i 1 1 i i 1 . . 


1 1 1 . 1 1 iLiAiBIEiL, . .Lili. ,L,2,, |L,3i: I ,.,.,. 1 1 ,,....,., 1 . i i ..,, , 


,,,,,, ,F,0,R|W|A|R|D, |S,W,I ,T|C|H| , S , W, 2 , , , S, W, 3 , ; | , ,,..,.,, 1 , 1 . i i i . . . , 


,,,,,, |S,W,I |T,C,H| 1 ,S|W,1,:|=| ,L,1,, ,L,2 1, ,1 ,F, | A, ,T,H,E,N, ,S,W|2|r.ini .E|L,S,E, ,S|W,3, ,\~,i,'].h . 


,,,,,, ,S,W,I |T|C|H| 1 ,S,W|2|:,= | |L|3,, ,S|W|1,II,J,I1| ,,S W,3|I,J J,; , , I ,,,,,,,,, | ,,,,,,, , 


,1,1,1 |S|W,I |T,C,H, , |S,W,3,: ,= | ,L, 1, ,, L^ 3, ,,S,W,1| C I^U .;. i . , . 1 1 . . 


1 * 1 . . 1 . 1 . 1 1 1 . 1 1 . 1 . 1 . 1 1 .ii.lii.iiiii.il 


1 1 1 1 1 1 1 1 1 1 ' 1 1 1 1 1 1 1 1 1 1 . 1 . 1 1 . 1 . 1 1 . 1 1 1 1 . 1 . . 1 1 1 1 . 1 1 1 1 1 1 1 . . 


1 . 1 1 1 1 1 1 1 1 1 1 1 1 . 1 1 .. 1 1 1 1 1 1 . 1 1 1 1 1 . 1 1 1 . 1 . 1 1 . 1 1 1 . 1 ... 1 1 1 1 . 1 . 1 . 


1 . 1 |E,N,D,:, 1 1 1 1 1 1 1 1 . 1 . 1 . 1 ... 1 1 . 1 . 1 1 . 1 1 
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9.6. ARRAY DECLARATIONS 



9.6.1. Syntax 



<array dec]aration> : : =^ <array type> ARRAY <array list>i<array type>CORE ARRAY 
<array iist> 

<array type> : : =: <empty> | <type> I OWN<type> 

<array list> :, : -^ <array segment>|<array list> <array segment> 

<array segment> : : ^^ <array identifier> [ <bound pair iist>]|<array identifier>, 
<array segment> 

<bound pair list> : ; ^ <bound pair> j <bound pair list>,<bound pair> 

<bound pair> : : ^ <lower bound> : <upper bound> 

<lov;;er bound> : : ^- <arithmetic expression> 

<upper bound> ; : ^- <arithmetic expression> 



9.6.2. Semantics 



The concept of 'array' considerably enhances the power of ALGOL 60. An array can 
be considered to be a sequence of variables, referenced by the same identifier, but 
with each variable in the sequence being uniquely addressable by its fixed location 
in the sequence. 

The array declaration, then, defines one of several identifiers to represent multi- 
dimensional arrays of subscripted variables, and gives the dimension of the arrays, 
the bounds of the subscripts, and the type of the variables. 

Arrays, like simple variables, may be declared to be OWN or by default are local to 
the block of declaration. Initially all arrays are set to binary zero. If declared OWN, 
the value assigned to each element of the array must be preserved at the end of the 
block of declaration for the array and restored upon re-entry. This concept implies 
non-stack storage; UNIVAC 1108 Extended ALGOL, however, utilizes the dynamic 
stack to contain an OWN array while the block in which it was declared is active, 
but maintains a current copy of the OWN array on drum to reinitialize the array upon 
re-entry of its block of declaration. 

Arrays must be declared to be of type REAL, INTEGER, DOUBLE, COMPLEX, 

BOOLEAN, or ALPHA; with all elements of any array being of the same type. If 
type is not specified, REAL is implied. 

The dimension of an array is fixed at declaration time by the number of bound pairs 
specified; each reference to an array element, therefore, must list an entry for each 
dimension. 
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The bound pairs of the array declaration define the lower bound and upper bound for 
each dimension specified. The syntax permits the bounds to be defined by arithmetic 
expressions, the bounds, then, may be fixed at compilation time if an integer con- 
stant is given for the bounds, or the bounds may vary if an expression of variable 
primaries is used to define the bounds. 

A dynamic, or variably bound, array is assigned storage in the stack according to 
the current value of the variables defining the bounds. In order for such variables to 
have a value, they must be declared in a block that is global to the block of the 
array declaration. For this reason, dynamic arrays may not be declared in the outer- 
most block and dynamic OWN arrays are not permitted. 

An array is defined only when the values of all upper bounds are not smaller than 
those of the corresponding lower bounds. The result of a subscript expression 
raust be of type INTEGER; if the result is not of this type, the compiler will gen- 
erate a transfer to type INTEGER. 

The limit for the value of the size of any dimension is 4096. If CORE array is 
declared, storage will be allocated in the stack for the entire array at declaration 
time. In the absence of the word CORE, only the area specified by the rightmost 
bound pair will be reserved in the stack; the entire non-core, or segmented array, 
will be resident on the drum within the scope of the non-core array declaration. 

The programmer need not be concerned with the segmenting of arrays since the 
compiler generates code to execute this function. 

It should be emphasized that run time will be increased in direct proportion to the 
frequency of referencing different setst of array data. 

All one dimension arrays are CORE arrays, even if the word CORE is omitted in 
the declaration. At every array reference, the values of the subscripts are checked 
to see that the address designated is contained within the array. If it is not, a non- 
recoverable run time error will result. 



9.6.3. Examples 



1 '0 20 30 40 50 60 80 


, 1 , iA,R|l?,A,Y, lA,. iB,, iCiL^jN,; ,1 ,0,0,, ,Mi;.5,0,,_i, ,D,[i-,5,: ,1 ,2.J; , i i ! , , i i i , i , i 1 , , , i , , , , , 1 , , , , , , , , , 1 , , , , i ^ , ^ i 


-L 1-1-1 -J J 1 1 1 1 1 1 1 . 1 1 1 1 i i 1 1 1 , 1 ; , i 1 l.J . , i 1 , 1 i i i 1 > 1 1 1 1 , 1 1 1 ] 1 1 , 1 , 1 1 1 1 1 1 1 1 , 1 1 , , 1 , 1 i .L.i_l_J 1 1 


_i jjjOjWjN, ,1 ,NJ^E_G_E R^ ,A,R^R,A|Y, , K, E, E, P, ,\_,\ ,Fi ,X,.,0, ,7^ H, E, N, [O, .EjL^^SjEj ,1 lm >Q ij S^Oj^H, ; ^ i_l_iiJi,,i,i,iiIi,j,,i,lj 

1 1 .- 1 1 . 1 . 1 1 1 . 1 . 1 . . . ( ! L , , , , , , , , 1 , , , , , , , ^ I_Ll.^L.I. L.l. , , , I , , L , . , , , 1 I , , , , 1 , 1.1. , 1 1 I .1. , .,. , , J...,_ 
-1 L.l_l..l. i 1 , 1 1 1 , , i , , , , , i , , , , , , , , , 1 i 1..^., ,., , , ,.i L_,.., 1 1 1 , 1 1 1 1 , 1 , , 1 1 i. , 1 L 1 . 1 , , J , , 1 I 1 J _,^ _L^ , , 
. L l-.X.-.L._L..i.J...i , 1 ,,,,,,,., 1 .,,, , , J ,, 1 .,,.,,,, , J., , ,. , t,, , 1 , 1.1 , , , ,. , , .1 , .1 1 .L_i_J..|..l., 11 1 L 1 1 1..J. ,.,..L1_ 

1 1 1 |R,E,A|L| |C|0|R|E, ,A,R,R,A,Y| 1 B, E, T, A, , ;Ci X, : , Yl , iX i f, 1 ,0 , : , Y, t, 1, 01 . , X, *, *, 2i : ■ Y, *, * ,2 i_i, ; , , i , , , i i 1 1 , , 





tSet is defined as the stack-resident area of a segmented array defined by the 
rightmost bound pair, for a two dimensional array, it is one row. 
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9.7. ABSORB DECLARATION 

9.7.1. Syntax 

<absorb declaration> : : =- ABSORB <subscripted variable>,<absorb array declaration> 

<absorb array declaration> : : ■=-- <sarray type> ARRAY <array segment> 

<sarray type> : : -=^ <type> | <empty> 

<array segment>: : -<array identifier>[I<bound pair list>^| <array identifier>, 
<array segments 

<bound pair list> : : = <bound pair> | <bound pair list>, <bound pair> 

<bound pair>: : ^ <lower bound>:<upper bound> 

<lower bound> : : = <arithmetic expression> 

<upper bound> : : -^ <arithmetic expression> 

9.7.2. Semantics 

The absorb declaration allows two or more arrays to share common storage. 

The subscripted variable must refer to a previously declared CORE array; to be 
henceforth identified as the absorbing array. The absorbing array may absorb any 
number of arrays with the same bound pair specification in the same absorb 
declaration. Arrays with different bound pair specifications may be absorbed by 
the same absorbing array in individual absorb declarations. 

The number of words in the absorbing array from the point of absorption must be 
equal to or greater than the number of words in the absorbed array. The mapping of 
an absorbed array into an absorbing array is accomplished at run time; therefore, 
both absorbing and absorbed arrays may have dynamic bounds. 

The type fields of the absorbed and absorbing array need not be the same. 

9.7.3. FJestrictions 

■ Absorbing arrays must be CORE arrays. 

■ Absorbed arrays may not be declared with OWN or CORE specifications, these 
attributes are inherited from the absorbing array. 

■ An array may be absorbed only once, since it is absorbed by a declaration. 

■ An absorbed array may not itself absorb arrays. 
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9.7.4. Examples 



1 10 20 30 40 50 




, , ,R,E,A,L, ,A,R|R,A,Y, , M, A, T, R, 1 , X| ,[] 1 , : , 1 , 0, J ;, | , , 


, 1 ,1 ,NiT,E,G,EiRI iCOiRiE, , A, R, R, A| Y, i SiUiMiC, 1 , : , K, * * ,2 , , , J , : , ( , K+i 1 i) 1* i2 J , ; , 1 i , , , 


1 1 1 1 1 1 1 1 1 1 ' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ' 


1 1 1 1 1 1 1 1 1 1 ' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


, , ,A,B,S,0,R,B, |M,A,T,R,l,X,Cl,o:i|.,l,N,T,E,G,E,R, ,AR,R,A,Y, , 1 , C^ , = ,2 |0 J, ; 


1 1 1 1 1 1 1 1 1 1 '■ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


, , ,A,B,S,0,R,B, |M,A,T,R,I,X, , [^8 ,0' G, ,,D, 0, U, B, L, E, ,A^R,R,A,Y, , D, ,C0,:|9,1 ; 1 


1 1 1 1 1 1 1 1 1 1 ' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


, , ,A|B,S,0,R,B, |M,A,T,R,IX, T,!,]],,, , | , N, T, E, G, E,R, |A,R,R,A,Y, , 1 „ , J, ,1 kCi ,: , 2,0 3, ; , , | 


1 1 1 1 1 1 1 1 1 r 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


, , ,A,B,S,0,R,B, |M,A,T,R,I,X, ,^1,1],,, , A, L, P, H, A, ,AR|R,A,Y, , L, E, T,T, E,R| Tl^ 1 ,= ,U,1 , , , I, 2, : m 2:^,; , , , , , 




, , ,A,B,S,0,R,B, |S,U,M, ,C, X, , , Y,~l^ , ,r,e,A,L, ,A,R,R,A|Y, ,R, E,S ,Ci ,: , 5,0 , H ; , , , , , , , , 1 , , 


1 1 1 1 1 1 1 1 . 1 1 ' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


, , ,A,B,SORB, |S,U^, ,[^X + ,2,,,5P„ , , 1 , N, T, E, G, E, R, ,A,R,R,A,Y, , P, A, R| T, , ^ L,l ,: ,U, 1 , . ,L| 2, : , U,2 ;:, ; , , , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 





9.8. DEFINE DECLARATION 

9.8.1. Syntax 

<define declaration>: : = DEFINE <definition list> 

<definition list> : : = <definition part> | <definition list>,<definition part> 
<definition part> : : = <defined identifer> = <definition> # 
<definition> : : = <symbol> ] <definition><symbol> 
<syinbol> : : = <delimiter> | <identifier> | <constant> 

9.8.2. Semantics 

The define declaration defines an identifier as a set of basic ALGOL components. 
The appearance of a defined identifier results in it being replaced by its associated 
definition. Such replacement must result in a legitimate ALGOL construct. When 
identifiers are used in a definition they will, at the time the defined identifier is 
used, refer to the meaning applicable at the level of the define declaration. This 
point is important only when the defined identifier is used in a nested block which 
contains a declaration affecting an identifier in the defining construct. A define 
declaration may contain another defined identifier. 

9.8.3. Restrictions 

■ Any basic component used in a definition must be completely contained therein; 
for instance, a part of an identifier cannot be used in a definition with the other 
part being supplied later in the program. 

This rule also applies to delimiters, unsigned numbers and strings. 
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All identifiers in the definition must be previously declared. 

The meaning of an identifier in the definition given is always employed whenever 
the defined identifier is used. 

The well-formed construct of a definition must not contain a declarator or a 
specificator. 

A defined identifier must not be used in a fill statement, a format declaration nor 
as a formal parameter. 



9.8.4, Example 



1 10 20 30 40 50 60 


,1,1 ,D,E|F,I ,N|E| , ,R,K, = ,R|U,N,G|E,K,U,T,T,A,»,,|R,0|0,T,==i( ,_iBi+,S,Q,RIT,(,B,*,2,-,4/,A,*|C,) ,) ,; , #, ;, , , , 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 L 1 1 1 


, , , , ,D,E,F,I,N|E, ,I,N,T, = ,I,N,T,E|G,R,A,T,E, , ( , X, . ,Y| , ,Z, ) ,# , ; | , , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


D,E|F|l|N|Ei , F, liMiDiOi = iFiO|Ri , 1 , : , =, 1 , ,SiTiEIPi ,1, lUiNTi.liLi IM, ,D|0,#,;, , , , | , , , | 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 |D, E|F| l|N|E| 1 AS|G|=.|A|: |=,I 1N|T,# ,; , , , , , , 1 , , , , 1 1 i , i , i , , i i 1 


1 1 1 1 1 °r e,qiial|y,vqli(il , , | , i , 1 i i i i i i , i i 1 1 i i i i , 1 i i 1 i , i i , , i i , 1 


, , , 1 ,D,E,F,I,HE, ,A,S,G,= ,A,:, = ,I|N,T,;,#,;, , , , , 1 , , , ,' 1 1 | 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 ) 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 





9.9. MONITOR DECLARATION 

9.9.1. Syntax 

<monitor declaration> : : = MONITOR <mfile part> (<monitor list>) 

<mfile part> : : = <empty> | <file identifier> 

<monitor list> : : = <monitor list element> | <monitor list>,<monitor list element> 

<monitor list element> : : = <simple variable> | <subscripted variable> | 

<array identifier> | <switch identifier> <procedure identifier> ] 
<label> 

9.9.2. Semantics 

The monitor declaration allows the programmer to display variables whenever their 
values are changed and to trace the path of a program by displaying labels and 
switches when they are encountered. 

The file part of a monitor declaration is optional except as noted in restrictions. 
When given it does not specify that this particular monitor list is placed in the 
given file. Instead, all monitored elements are placed on the most recently given 
file. 
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When a monitored variable or array or procedure identifier is used in the left hand 
part of an assignment statement; the following information is written on the 
designated file: 

identifier : = value assigned or 

array identifier [Sx> ^2, ..., 5^11: = value assigned 

When a monitored switch is encountered, the following information is written: 

switch identifier \Z^Z\ > where V is the current value of the subscript expres- 
sion. 

When a monitored label is encountered the following information is written: 

label identifier 

W^hen an array identifier is given, all variables in the array are monitored. If a 
subscripted variable is given only that element of the array will be monitored. 



9.9.3. Restrictions 



In each block before a reference to a monitored identifier occurs at least 
one MONITOR declaration with a non-empty file part must have appeared. 

All monitor list elements must have been previously declared and labels may only 
be monitored in the block in which they are declared. 



9.9.4. Examples 



1 10 20 30 •10 50 60 80 


^, J |B|E|G,I |Nj , |R,E|A,L, , , , , , |A , , , B, , , C, , , D, ; , , | , , , , , , i , , | I i I i i i i i i 1 i i i i i i i i j 1 j i [ l.j_j J j .J_ 1 ] i l I I I j 1 1 .. 

^ J , , 1 , 1 1 J 1 l|N,T,E,G,E,R, , 1 |S,;^ , , 1 , ■ 1 , , i L 1 1 1 , , 1 , 1 , 1 1 1 1 , 1 , 1 1 1 , , 1 1 1 , 1 1 1 1 1 , , 1 , , 1 , , , , 1 , 

,,,,,,11, |L,A,B,E,L, , , , , iL,l;; , | i i i i 1 i i i i i i i i i 1 [ i i i i i i i i 1 i i i < i . i i i 1 i > i > 


, 1 , 1 < , 1 , 1 IF,IL,E, ,0,U,T, , |F,I,L,E,1, , 1^ ( ,1 , , |2 ,2 , ) , ; , , , , , , 1 , , . . i , . > i 1 i i i i , i i , , , 


,,,,,,,,, |F,I|L,E| ,0,U,T, 1 |F,I,L,E,2, , 1 ( ,1 , , | 2, 2, ) , ; , , , , , , | , , , 1 i , , i , i i i i 1 , i 1 i . i j i ) , , , 


, , , |M,0,N,l ,T|0,R, , , |F,I,L,E,1, , ( . A, , , B| , , L, 1 , ) , ; , ,,,,!,,, , 1 ,,,, i i ,, i 1 ,,,,,,,, i 1 ,,,,,,,, , 


.1 , 1 , 1 1 1 1 1 IMiOiNi I|T,0|R| , 1 |F|I,L, E|2, i(,q, |D| ),;, , , , , , , , | , , , , , , , , , | , , , , , , , , , | ,. , ,. , i j i , i | i j i_ i ..l i i i l._ 
1 J 1 1 1 1 1 1 1 IQO,M,M,E,N|T| , , !A,,,B,,,C,,,D,,,L,1| |W|I,L,L| , A L, L, I B, E, ,P,L|A,C,E,D, \ 0, H |F,I|L,E,2, ,B| E, C, A, LltS,E| _, 1 lTj._ 1 j ^, , ,_ , , , , j 
j_ 1 a 1 1 1 J 1 1 1 1 ] 1 1 1 1 1 1 1 |W|A|S| |T|H|E, |L|A|T|E|5|T| .Gj 1 ,7 .E, Nj ; , , , , , , ,1 , | , , , i , j , , ^ | , , l j_ 1 J ] i j J i i i i_L j i _L_i_ 
, 1 |B|E,G, l,N| , |R,E|A,L| ,,,,, | A, ;,,,,,,,, | ,, , i 1 i i , i i , i i i 1 i 1 i i i i 1 i i i i i . i i , 


j_a 1 1 1 ] 1 1 I |l iN, T, ^G|E, R| , , ] A, R, R, A, Y, , 1 ,( , 1 , : 1 1 1 0, ) ,; , , , , , , | , , , , , , , , , | , , , j j , j_ i , 1 l i l _L j j__L l _l_i l J _l i L i i L i 


_i__i.i.i J...1 J j,._i |F,I,L|E|. ,0,U|T| 1 |F,I,L,E,3, i 1 ,( i 1 1 , 1 2, 2, ) , ; , , i i i i 1 i i , i i i i i i 1 i , i i , i , ] , 1 i i i i i j i i. i 1 jj i i i i i.i i 

_, , 1 1,1, J 1 |M, Q r^l,T,0,R, , , |F,I,L,E,3, , ( ,A, ,, 1 1 C 5 J,) , ; , , , , , I , , , , , , , , , | , , , , , , , , , | , , , , , , , , , | , , , , , , , , , 

,,,,,,,,, |C,0|M|M|E,N,T| , , |A,L,L| ,V,A,R,I ,A,B| L,E,S , .A.R.E, ,N,0|W, |M,0| N, 1 , T, Q R, E| D, lO.N, , F, 1 , L, E|3 1 ; , i i i i i i i i 1 , , i , , , i , , 






III.. |E|N,D,;| , 1 1 , 1 1 1 1 1 1 , , 1 1 , , 1 1 , 1 1 1 , 1 1 , 1 1 , 1 , , , 1 , 


_La .1. 1 1 1 j_.Lj 1, j'l ,_, 1 , 1 1 1 . , , , 1 , 1 1 , J 1 , 1 , ,1 , 1 ,1., , .1 ,j..i 1 lJ 1 ....l._i ..1.J.J..1 i_j .li.._i.i.._i .i^i.J , a i. I j ,_aj 1.. 

._LJ. 1 1 1 1 1 1 1 1 l.j:| 1. 1 1 1 1 1 1 I I 1 . 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 . 1 1 1 1 . 1 1 I.I J..J..I KJ LJ.J_J_l_X_l.J.J l.J 11 1 1 . 1 

,,,,,,,,, |C,0,M,M,E,N,T, , , |U,P,0,N, , L, E, A, V, 1 1 N, G, ,T,H,E, , N, E,S |T,E,D, ,B,L,0|C,K, | (i^ QN, 1 ,T ,0,R ,E ,D , |V,A,R, 1 ,A,B,L,E,S , | 


1 1 1 , 1 , 1 J , 1 , 1 1 , 1 , , , , |A,G,A, l,N, ,0,0, ,0|N, ,F, l,L,E,2,) ,;, 1 i i , 1 i , i , i , i i i 1 i i i i i i i i i 1 i j i i i i , i i 


,l_J.l_L._L ,_LL1 l_l 1V.L..I i 1 1 , 1 1 1 1 1 1 1 1 1 , 1 1 1 1 1 1 1 1 1 1 1 1 1 1 j 1 1 1 1 1 1 .1 J 1 1 1 1 , 1 1 1 1 1 J J ,_J_._L_.L_L.J_..L..L L . 

Ill 1 1 M 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 J 1 .J 1 l_l L 


, lElNiDI ; 1 1 1 > 1 1 1 1 ,,, 1 I 1 1 1 , 1 , 1 1 1 ., 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 , 1_J _L .L_L J_L__ 
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9.10. DUMP DECLARATION 

9.10.1 Syntax 

<dump declaration> : = DUMP <dump part> 

<dump part> : : - <file identifier> (<dump list>)<label>:<dump condition> 



<dump condition> 



<dump list> 



: - WHEN <Boolean expression> | WH EN <Boolean expression> 
EVERY <arithmetic expression> | WHEN <Boolean expression> 
EVERY <anthmetic expression>WHILE <Boolean expression>| 
WHEN <arithmetic expression>| WHEN <arithmetic expression> 
EVERY <arithmetic expression>| WHEN Orithmetic expression> 
EVERY <arithmetic expression> WHILE <Boolean expression>|<empty> 

:dump list element>|<dump list>,<dump list element> 



<dump list element> : : - <simple variable> | <subscripted variable> | <array 
identifier> I <label> 



9.10.2. Semantics 

The dump declaration allows a programmer to display variables at any point during 
the execution of his program. 

The dump condition is evaluated when the label is encountered. If there is a dump 
condition and the WHEN and WHILE portions of the condition have been satisfied, 
the dump declaration becomes active. The DUMP will then be executed each time 
its label is encountered provided the WHILE and EVERY portions of the dump 
condition are satisfied (if present). Once the dump declaration has become active 
and the WHILE condition is not satisfied the DUMP becomes inactive and remains 
so until the block in which it is declared is re-entered. If a dump condition is not 
present, the DUMP will be executed each time its label is encountered. 

In the case of WHEN dump condition it may be represented either by an arithmetic 
or Boolean expression. If the condition is an arithmetic expression, it will refer to 
the number of times the label named in the dump declaration has been encountered. 
If it is a Boolean expression, a true value means the condition is satisfied. 

All dump list elements are placed on the file given immediately preceding the 
dump list. 

The dump list elements are displayed in the same format as in the monitor 
declaration. 

9.10.3. Restrictions 

The colon following the label is given only when a dump condition is present. 
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9.10.4. Examples 



1 10 20 30 40 50 


1 , 1 B| E |G 1 1 1 N| 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I , 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 I 1 1 1 


1 , , , , ,R|E,A,L| |A,. ,B|,,C,,,D, ;, | 1 ,N,T,E , G, E, R, iJ,.!!,;, |B,0,0,L,E,A,NI ,B,0,0,L,;, , , , 1 


1 1 1 1 1 |A|R|R|A|Y| |X| , 1 Y| , |Z| [ 1 1 1 : 1 1 |0| || ; i i i i i i | i i i 1 i i i 1 i i i i i 


1 1 1 1 1 iLiAiBjElLi 1 L|l 1 , 1 L|2,, 1 L|3| , 1 L; 4| ; 1 i i i i i i i i i 1 i i i i i i i i i 1 


F,l,^^ ,QMT, ,F,1, ,1,(|1,.,2,2,),; , , , , 1 ,11,1,1,1, 


F,I,L,E| ,0,U,T, ,F,2, , 1,(| 1 , .,2,2 ,) ,; , 


, , , , , iD,U,MPI iF,l, ,(,L, li.,A JB,.,C,) , ,L,1,: iW,HE,N, ,5, ,E,V,E,RiYI ,1,; 1 


, , , , , ,DiU,M,P| ,F,2, ,(,L, 1, ,,X,,|Y,nJ,n,), , L, 1 , ; , 1 1 ,,,,,,,,, 1 ,, i , , 


D|U|M,P| iFili ,(,Z,), ,L,21: ,W,H,E,N, iX,[7l,l = ,A ,E,V,E,R,Y i2U,l, ,W,HiliLiEi ,BIOiO,Li:, , 


I 1 1 1 1 1 1 1 1 1 1 1 , 1 1 1 1 1 1 1 , 1 1 , 1 1 , 1 , , , 1 1 , 1 1 1 1 , , 1 1 1 1 , 1 , , 


1 , , 1 , 1 1 , 1 L' 1 , , 1 1 1 1 , 1 1 , , 1 , 1 1 , , , 1 1 1 , 1 1 , 1 , 1 1 , 1 , 1 1 1 1 , 1 1 1 1 , , , 


, , , , , 1 , , , 1 * , , 1 1 1 1 , 1 1 1 1 , , 1 , , , , 1 1 , , , , 1 , 1 , , 1 1 1 1 1 1 1 1 , 1 1 1 1 , , 1 


1 , , 1 , 1 E,N|D|; 1 1 1 1 1 1 , 1 1 1 1 1 1 1 1 , 1 , , , , , , , 1 1 1 , , , 1 , 1 , 1 , , , , 1 





9.11. I/O DECLARATIONS 

I/O declarations will be covered in Section 11.2. 
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10. PROCEDURE DECLARATIONS 



10.1. GENERAL PROCEDURE DECLARATIONS 



10.1.1. Syntax 



<general procedure declaration>: : = <procedure declaration> | <external procedure 
declaration> 



10.1.2. Semantics 

The following pages describe the syntax and semantics for both the procedure 
declaration and external procedure declaration. The external procedure declaration 
is a special feature of UNIVAC 1108 Extended ALGOL and enables communication 
between an ALGOL program and programs compiled at a previous time written in 
ALGOL or FORTRAN. 

10.2. PROCEDURE DECLARATION 

10.2.1. Syntax 

<procedure declaration>: : = PRQCEDURE <procedure headingXprocedure body>| 
<type> PROCEDURE <procedure headingXprocedure body> 

<procedure heading> : : = <procedure identifier> <formal parameter part> ; 
<value partXspecification part> 

<procedure identifier> : : - <identifier> 

<formal parameter part> : : = <empty> |(<formal parameter list>) 

<formal parameter list> : : = <formal parameter> | <formal parameter list> 
<parameter delimiter> <formal parameter> 

<formal parameter> : : = <identifier> 

<;value part> : : = VALUE <identifier list> ; | <empty> 

<identifier list> : : = <identifier> | <identifier list>,<identifier> 

<specification part> : : = <specifier> <identifier list>; |<specification part> 
<specifier><identifier list>; |<empty> 

<:specifier> : : = LABEL j <type> ] SWITCH | PROCEDURE | <type> PROCEDURE] 
ARRAY 1 <type> ARRAY | FILE | LIST I FORMAT | SWITCH 
FORMAT i SWITCH LIST] SWITCH FILE | 

<procedure body> : : - <statement> 
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10.2.2. Semantics 



The ALGOL procedure provides a convenient means of defining an algorithm and 
giving it a name so that it may be referenced or called anywhere within the scope 
of the declaration of the procedure identifier. Furthermore, different actual 
parameters or arguments may be passed to the procedure at each call. 

The procedure declaration consists of the procedure heading and the procedure 
body. The identifier of the procedure appears in the procedure heading followed 
by a list of names which designate formal parameters. The formal parameter list 
may be empty, but if it is not, each formal parameter name must be further defined 
by the specification part. Since the dimension of an array is not indicated by the 
specification, all arrays, including those intended to be of single dimension, t must 
be specified to be CORE arrays if that is the programmers intent. If the word 
CORE does not precede ARRAY in the specification part, the code generated by 
the compiler at the array reference will be that for a segmented array. 

Formal parameters are really dummy variables to which an actual parameter value 
of identical type and kind will be passed when the procedure is activated by a 
procedure call statement. Formal parameters may be called by value or called by 
name. If the formal parameter identifier appears in the value part then when the 
procedure is entered the value of the corresponding actual parameter will, be 
calculated and in effect will be substituted for the formal parameter at each oc- 
currence within the procedure body. If a formal parameter does not appear in the 
value part, it is assumed to be called by name. This means that at every reference 
to the formal parameter within the procedure body, the value of the actual parameter 
will be calculated (or recalculated). It is possible, then, for the value of a formal 
parameter called by name to vary from reference to reference within the procedure 
body. 

The attributes of actual parameters and formal parameters are checked for 
equivalence at run time; if they are not identical in kind and type, an unrecoverable 
run time error results. (See Appendix A Error Diagnostics). 

An exception to the rule of complete agreement between actual parameters and 
formal parameters is that an actual parameter that is defined to be an array row 
may be passed to a formal parameter that is specified to be an ARRAY and is 
referenced as a single dimension array within the procedure body. 

If a type declaration appears before the word PROCEDURE in the heading, a 
function procedure is declared. A function procedure is an arithmetic (or Boolean) 
primary and may only be referenced in expressions. The name of the function 
procedure must appear in a left part list of an assignment statement in the procedure 
body. This is, of course, necessary so that a function procedure may exit with a 
value. A go to statement leading out of the procedure body is invalid. A label, 
however, may be passed as a parameter; thereby enabling an exit from the procedure 
other than the terminating END of the procedure body. 

Declarations may be made in the procedure body, defining identifiers that are local 
to the procedure body. 



J All arrays used as single dimension must be de dared CORE, 
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10.2.3. Example 



1 10 20 30 40 50 60 80 




1 . .P<R.OiC.E,0,URiB, ,M,A,T,E,MiU,LIT, ,( ,RiM,A,X,. iCiMAiX,. < R, V,MA,X,. iM .l V< . i P,. > E, R,R, ) i : 1 .V,AL,U,E, ,R,M,AIX, . ,C, M AX 1 ,,,<,,,, , 


III! iRiViMiAiXUi il iNiTiEiCE.Ri IRiMiAiXi . iCiMi A,Xi. 1 Ri Vi M AiX.; > iRiEiAILi lAiRiRiAYi i Mi .1 Vi .i P, : i iLABiEiLI lEiRiRi: , i i , i 1 i . > 


1,11 ,C,0,M,M,E|N,T, ,MA,T|E,M,U,L|T, ,M,U,L,T, l,P, L,l I E,S, ,A, ,HA,T|R,I|X, , M, ,QF< <R,M,A|X, ,R,0,W,S< , A, N, D| ,C,MiA,X, i i > i 1 > > < 


, , , , ,C,0,L,U,M|N,S, ,B,Y, ,A, ,V,E|C,T,0,R, ,V, ,0,F, |R,V,M,A,X, ,R,0,W,S|., ,T,H,E, , P, R, 0, D| U, C, T, ,I,S, ,P, .,0,F, ,R,M,A,X, ,R,0,W|S,;, ,,,,,,, 


1 1 1 1 . . >B,E,GII,N, < , , L , 1 1 1 1 , < 1 , > . . 1 . 1 1 , 1 1 > . < 1 1 , , 1 . > . 1 , , 


Ill 1 '|N|T|E|G|E|Rj |R,,|C|;i , , , | i i i i 1 1 i i i i i i i i i 1 i 1 i i i i i i i i i 


1 1 1 1 fi iCit^AiX, ,N,E|Q, |R,V,M,A,X, |T,H|E,N, ,0,0, ,T,0, ,E|R,R,; , , | , 1 , , , , i i , , , • 


, , |F|0|R| ,R,!,= |1| |S|T,E,P, ,1, ,U,N,T,I|L, ,R,M,A,X, ,D,0, | , , i i 1 1 i i i i i i i i i 1 i i i , , i i i . 




1 1 1 1 1 1 1 1 iSiUiM,: i=|Oi;, 1 i 1 i i i i i i i i i 1 i i i i , > , i i 1 1 i i i i i i i i i 


F,QR| |C|!,= ,1, ,S,T,EiPi ,11 ,gN,T,l,L, |C,M|A|X| ,D,0 1 , , , i , 


..... 1 ... 1 S.UiMi: i=ISiU.M< .+. iM|:;r..IC.3^V>GcII:. .1 i . . 1 . i . i i i i i . i 1 i i i i 1 , i > 


P>[;iDi3: l«,S,U,M,: 1 1 , 1 1 , 1 1 1 1 1 1' 1 1 1 1 Ill 1 1 1 1 ,1 






1 1 1 J 1 1 1 1 1 1 .1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 r 1 1 1 1 1 1 1 1 .1 1 1 1 1 



10.3. EXTERNAL PROCEDURE DECLARATION 



10.3.1. Syntax 



<external procedure declaration> : : = EXTERNAL <kind> PROCEDURE <proc 
list> I EXTERNAL <kind> <type> PROCEDURE <proc rist> 



<.kind> 



FORTRAN I <empty> 



<proc list> :: = <proc part> | <proc list>,<proc part> 

<proc part> :: = <procedure identifier> | 

<procedure identifier> (<efile par tXelement part>) 

<efilepart>: : = <file name>. | <empty> 

<element part> : : = <element name> | <element name>/<version name> | <empty> 



10.3.2. Semantics 



External procedures are procedures whose bodies do not appear in the main program. 
They are compiled separately and linked to the main program at its execution. The 
external procedure declaration serves the purpose of informing the compiler of the 
existence of these procedures, their types (if any), and the proper manner to con- 
struct the necessary linkages. 

The file and element information is given in standard UNIVAC 1108 Executive 
System format. This information is used by the ALGOL compiler when it generates 
maps for run-time execution. 
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If no file or element is given, the external procedure is assumed to be in the file 
TPF$ and will be automatically collected by the system. If only a <file name> 
is given, the compiler adds a LIB file name statement to its map of the object 
code. This file is assumed to have been VPREP'ed and it will be searched for 
any external procedure names. Thus, if a user has many external procedures in a 
file, he need only give that file name once. If the user wishes to name specific 
elements, he should give file name . element name/version name. 



Examples: 



I 10 20 30 40 50 60 80 


_l 1. 1 1 1 I , 1 1 1 1 1 i 1 1 1 . , . : 1 , , , , ; ', 

_..i 1 1 |E,X,T|E,K|HA|L, |P|R|0|C,E|D|UI R.E, ,X,(iF:l,L 
1 1 1 |C|0|M|M,E|N|T| iTiHiE, , P,R|0|C! E, D, Ui R, Ei ,X, 
1 , , 1 1 , iZ| |M|A|Y| ,E,l|TiHE|R, |B,Ei ,I:N, ,F,I 


E;li .,),,, Y,^Z;i 
1 iS; , AS,S|U:M|E,0 
L,E; 1i |0|R, ,TiPiF 


: 1 1 i 1 , , , , 1 , i 1 1 . , , , , L , 1 , 1 1 i 1. J L 1 1 [ 1 1 1 , 1 l..L_L__L_ 
1 1 1 1 1 1 . . 1 1 1 1 , , , 1 , 1 i , , 1 1 , , 1 , , 1 1 , 1 1 , 1 1 , 1.x i..J . 

iTIO, iBiE, iliN, ,F,l!Lieil,.i iPiRiOiCEIDiUiRiEiS i lY lAiNlDi , , i i , , i , 


$:; 1 > 1 J , J J 1_.L J ,_.l.i i., .L 1 U,_,..L__1_._L 

i 1 1 1 1 1 1 1 1 1 1 1 I I 1 1 1 1 < 1 1 1 1 1 i 1 1 1 


1 : 1 1 1 1 1 1 1 1 1 1 > 1 i 1 < 1 J 1 I I 1 > i i > 
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 . 1 . 1 1 , 
, 1 1 |E|X|T|E|R|N|A,L| |F|0|R|T| R, A, N] ,R,E,A,L, ,P,R 
.1 . , , 1 ,C|0|M,M|E,N|T| |T|H,E| , P|R|OiCi E|D|U,R| E, 
1 1 1 1 1 ,0,F, iEIL,£,MiEiNiT, ,M,AiTIE; il,N, i Fi 1 ,L 


OiC|EiD,U,R,E| ,M,A 
M.AiT.E, 1 1, S| ,A,5 

E : 2! ; i , : , , : i 




, 1 ,,,,,,,,, 1 ,,,,,,,,, 1 , , , 1 , , , , 1 , , , , 


T,E|( |F|I |L,E|2, ., MA.TlEi),; 1 , | , , , 1 , , i , 


S.U|M,E|D| iTiO, iBiE, |T,H,Ei iS ,U iBi Ri OiUITil iNiEi iN|AiMiEi 1 , i 




__j_ ___ ,_ 1 ,_j_ i_ L 1 1 , , 1 , 1 1 1 , , 1 , 1 , . , i i 




, 1 , 1 ■ 1 1 1 1 , 1 1 1 1 , i , 1 , 1 . 1 i 1 1 1 1 1 



NOTE: The effect of external procedure declarations in cumulative, i.e., after 
6 files have been specified, an external procedure may reside in any of them. 

The word 'FORTRAN' has special significance only in this context. Procedures of 
kind <empty> are ALGOL procedures and are treated exactly like an ordinary pro- 
cedure declared within the program. However, they need not be written in ALGOL 
language. Procedures of kind 'FORTRAN' are FORTRAN subroutines or functions. 



10.3.2.1. ALGOL External Procedures 

An ALGOL program which consists entirely of a procedure is nonexecutable be- 
cause it contains only a procedure declaration (section 10,1). When such a 
program is compiled, the name of the procedure is marked as an entry point when 
the program is entered into the program file. The first six characters of the procedure 
name must define it. Such a procedure may be referenced from another ALGOL program 
as an external procedure. 



1 10 20 30 40 50 60 80 


▼lAiLiCi, iSil 1 1 iFLI.iLiEi2i..iSiYiMi,iFII .LiE,2i.iAIjG,1 I ! i i , , i i i , i 1 i i i i i i i i i 1 , i i i i i j j_ i 1 , i i l j_± i i i 1 


J ,_ 1 ,PlR,0[C|E:jD[U|R, E, ,M,U|L,T,(,I|,, J,,,RjE,S,U,L,T,) j ;, ,,,,,,,, I ,,,,, i,,, | ,, ,,,,,,, | i i i i i , i i i 1 , i i l i i i i x 
J , , ,V|A|L|U|E;i |I|,|J,;i ,R|E,AL| !R|E,S|U,L|T|;, ,1 ,NiTiE,G;E,R, ,li,|Ji;| i , i , , , i i i I , j i , j i , i , I , , i i 1 


_L j_i 1 1 iB,E|Gjl |N, ,C,0|M,M|E|h^T, |T,H,I|S, ,P| R|0,C, E| D,U,R, E, J,A,K,E|S| ,T|H,E| |P,R,0, D|U|C, T, , 0, F, , T, W, 0, j 1 ^h^T, E^G, E.R.S ^ _, | , , , 


, 1 1 ,A,N,D, ,A,S,S,I |G,N,S, ,T,HI,S, ,yA,LiU,E, ,T,0, ,A, |R,E,A,L, ,R ,E ,S JJ , LIT, ; , , 1 ■ , , i , , , , , 1 i 


J 1 L 1 1 1 1 1 1 1 , 1 . 1 1 1 1 1 iR|E ,5 ,U,L,T, :,-,!,*, J.;, i,,,,,,,|,,,,,,,,,i,,i,j,,i,|,jiLii,iilijxxij 1 


, , , 1 , xEjN.Dj 1 P|R,0|G|R|A,M|;| i 1 ,,, ,,,,,,, i !,;,,,, i i i i 1 i i i i i i i i i 1 i i i i i i i j i 1 i i i i i i i , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 < 1 1 1 1 1 ; i ! . i . 1 i > . ! 1 1 1 1 1 1 1 1 1 1 1 1 1 , . 1 1 1 1 1 . 1 1 1 , , < , , 1 , , , 





In order to call this procedure from another program the following statements 
could be used: 
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1 


10 20 


30 40 


1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 , iB 


EiGiliN 1 liNTi^GiEiR, ,A,. IB,; ,,,,,,, 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 


1 1 1 1 IRiEiAiLi 1 n ROiDiUICiTi ;i , i i , , 


1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 


,11, lEiXiTiEiRiNiAiLi i PI R, Oi C, Ei Di Ui Ri Ei 


l^^UlLlTl (,FiliLiEi2i.lAiLGil i) i: i , 


1 1 1 1 


1 1 1 1 1 '^i = 1= |B|: 1= |2 ,; 1 | | , , , , , , , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 J \ L J 


, , , , |M,U,L,T, (,A,, ,B,, ,P|R,0,D|U,C,T,) , ;, 


1 1 1 1 1 1 1 1 1 1 


1 1 1 1 


1 1 1 1 1 1 "T" 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 


1 1 1 1 1 1 ~r" 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 


1 1 1 1 1 1 ~T" 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 


1 1 1 1^1 N|D,; 1 1 1 1 1 1 1 i 1 1 , 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 


1 1 1 1 1 1 , 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


_i.._L. Ll 1 1 1 1 1 1 1 1 1 1 1 1 1 1 J 



10.3.2,2. FORTRAN Subprograms 

A FORTRAN subroutine or a FORTRAN function may be made available to an 
ALGOL program by the external procedure declaration. 

Actual parameters in calls on such procedures may be either expressions or arrays. 
The FORTRAN subprogram is a subroutine or function depending on the absence 
or presence of type in the external procedure declaration. A FORTRAN function 
is used like an ALGOL functional procedure i.e., as an expression. For example, 
if MULT (above) were a FORTRAN subroutine: 



'iF|0|R 

_1 -1_ L 



iS,l 
iSiU 
iRiE 
,R,E 



jEi N, D, 



> I 1 I 
, T| P, F, $ 

RiQLUiT,! 
U.LIT, r- 
U| R|N| I 



I 1 1 ,. 1 I I ■ , 

PiRiOi,|T| P|F,$,.,R 
El iMiUiLiTl (J_i_,i_J 
l,*iJ, ,,1,1, 



S|U 



-I -i__L__L_l.. 
.1 I L_J.. 1 



1 _L... 



In order to call this subroutine from an ALGOL program the following statements 
are used: 



1 1 1 1 1 1 1 1 1 1 1 1 1 1- -L...1_J. .1 , 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 , , 


.1 i_iBlEiG,I ,N, ilLNiT, E,G,E|R, , A,, ,BL; , __, R, E,A, L, |P lR lOiD, U, CiX, ; , , i _ i . , _1 j__j_ _,_ i i i i i i 1 i . i , , , i , i i I , i , i , , i i j 1 i 1 i i i i i i i 
J^-i— LI lEiX,TiEJRiNjAj^Lj ,F|0|R,T^R|AlN, ^P|R,0|C| E, D, U| R,E , |M|U|L,Tj;_, |C|0,M,M,E ^NJ, , N, 0, |F,I,L,E| ,1,5, |G,IV,Ej^Ni jBiEjC, A, U.S |E , , , , , , , , , 

. , ,. 1 1 , , , , 1 |M,U,L,T, ,15 , ,1 ,N1 .jT,P,F,$,;, ,,,],,,,, .l__i__.^.._ lJ. _i._L_i.__L_L_j_ . , i 1 ■ ._i i ..i i i , i i 1 , i , i , i l i i_.Li_ i , i , i i i , . 

.-i--i-_L_.i_ 1 , 1 1 lAl: ,-iB,:,::.i2,;, , , 1 , , , ,_,__,. 1,1 , ,__, , J , , , , .l.L^_L_L L L 1 1 1 1 1 1 , 1 1 1 , 1 1 i , 1 1 1 1 1 1 1 1 1 


,,,,,,,, ,M|U,L,T,(,A,,,B,,,P,RIO,D,U,C,T,_),;, , , I ,,,,,;,,, I ,,,,,,,,, | ,,,,, , .,,,,,,, 1 ,,,,,,,, , 


- 1 i- 1 1 1 1 1 1 l-i~i~"l 1 1 1 1 1 L 1 1 1 1 1 1 1 1 1 L J 1 _1 1 1 J 1 .J _1__L_1_L_L_L 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ,,, 1 J 1 L L 1 1 1 1 1 i L 
-1 a— 1— L- 1- 1 .1 1 l-Ln—L.J .1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l___L_l_.l_J .1_ l._.l J J_lllllllllllllilllllJ,ljlll_L^_L_LiiL 


1 J.l 1 1 1 1 lE.NlD, ,Y_j_ , ,_ , , , _i_l ,.,,,,,,,, 1 ,,.,.,, , ,._, _, L_L_L_L_1. 1 1 1 -1 1 1 1 L , 1 L 1 I 1 1 1 1 1 1 1 1 L 1 1 1 1 1 1 1 1 1 1 1 1 1 
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11. input/output 



11.1. GENERAL DESCRIPTION 

The purpose of this section is to acquaint the user with the interfaces of the ALGOL 
I/O Library and the 1108 Executive System and with the processes initiated during 
program execution by compiler generated linkages derived from I/O declarations and 
I/O statements. 

This section is not intended to pre-empt, supplant, or modify any part of the 1108 
Executive Programmers Reference Manual. Therefore, the 1108 PRM should be 
referenced for clarification of any statement regarding the Executive system. 

Descriptions of Executive requirements are intended only as an aid to understanding 
the methods employed in the internal processes of conversion from ALGOL I/O 
declarations and I/O statements to Executive interfaces, and consequently to assist 
the programmer in the construction of efficient Algol I/O statements and I/O declar- 
ations. 

11,1.1. File Assignments 

The Executive requires that files to be read or written must be assigned to the 
requesting run by use of Executive Control Statements. The control statements may 
be submitted to the Executive by external or internal methods. Externally submitted 
control statements are those accessed by the Executive from run streams either 
introduced to the System as card input or as pre-stored drum files or as elements 
within a file. Internally, control statements are submitted by an executing program 
to the Executive via an Executive Request for the Control Statement Formatter 
(ER CSF$). 

The ALGOL Compiler generates File Assignment Control Statements as the 
products of file declarations. The F'ile Assignment Statements are submitted to 
the Executive either internally or externally according to the device type of the 
file. 

11.1.1.1. Tape Files 

Tape File Assignment Statements are externally submitted as they are inserted 
into the RUN stream by the ALGOL initializing element prior to execution of 
the program. The Executive can, therefore, satisfy the tape unit requirements 
before initiating execution of the program. If the tape files or tape units are 
not available the run will be delayed until the facility requirements are satisfied. 



Tape files are never considered as permanent files by the ALGOL I/O System, 
i.e., tape files are never catalogued. The T option (temporary) is always speci- 
fied in a tape File Assignment Statement. Other possible options are H- high 
density, L - low density, and E - even parity (BCD). 
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11.1.1.2. Drum Files 



Drum File Assignment Statements are submitted internally during execution via 
ER CSF$. Drum files are always assigned to FASTRAND or Simulated 
FASTRAND. 

(1) SERIAL and RANDOM Files 

The C option (catalogue if RUN completes normally) is always specified 
for files declared with SAVE in the file lock part and/or OUT or empty 
input/ output part and with drum file description part present. 

If SAVE is specified cataloguing is accomplished at the end of the block 
in which the file was declared, or at occurrence of a close st^t^ment or 
lock statement. 

If SAVE is not specified and a lock statement is not encountered, cataloguing 
is inhibited when the file is closed. 

For Files declared IN, the A option, implying reference to a previously 
catalogued file, is always specified. 

Absence of the drum file description part in a file declaration always 
causes assignment with the A option. 

(2) UPDATE Files 

UPDATE may not be used for temporary files. The A option, implying 
reference to a previously catalogued file, is always specified. 

UPDATE may not be used to create a file. However, a file declared SERIAL 
may be written and catalogued and released with the lock statement and 
then in another block, nested or disjoint, declared as an UPDATE file and 
processed. 



11.1.1.3. Punch and Print Files 

Punch and print File Assignment Statements are internally submitted to the 
Executive during program execution via ER CSF$. FASTRAND or Simulated 
FASTRAND is always specified as the associated device. 

Punching and printing are processed in the Alternate File Mode causing output 
to the assigned file rather than a punch or printer. At RUN completion or pro- 
grammed file release punching and printing is initiated under Symbiont controls. 
The file is then no longer available to the executing program. 

Printer back-up tape files may be declared, however, actual printing of the tape 
file can only be accomplished by an Executive feature totally unrelated to the 
ALGOL I/O system, and therefore, becomes completely a user responsibility. 
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11.1.1.4. Card Files 



Card files are introduced to the ALGOL system only through the use of the DATA 
processor. The DATA processor is invoked by the processor call statement VDATA. 
Card images following the VDATA Statement and preceding the related VEND 
statement are written to the file specified in the TDATA statement and previously 
externally assigned by the user. 

The file name specified in both the TASG and VDATA statements must be identical 
to the file name specified in the corresponding ALGOL file declaration. 



11.1.1.4.1. Card Files on Fastrand 

Card files may be placed on Fastrand in the following simple manner: 



1 10 20 30 40 


TiAiSGi, iTi 1 1 CiAIRiDiS 1 , iFi i i i i 1 i i i i i i i i i 1 i i i i i i i j*i .Jm'i'i i i i i 


▼ iDiAiTi Ai ,1 Li 1 1 i ICiAiRiDiSi i i i i 1 i i i i i i i i i i _i .._l i. i i i i i- i |(|2|)| i i_,_j 


1 ' 1 1 1 1 1 1 -1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 . 1 1 1 —I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 ~l 1 1 1 1 1 1 1 1 1 1 _L i J- JL L 1 1 1 1 1 1 1 1 1 1 1 , 1 ,, 1, 1 1 1 1 1 1 1 1 1 1 1 


, , ,C,A,R,D, ,I,MA,G,E,S , ,., |(,2,) 


1 1 1 1 1 1 1 ~"i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 ~i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


▼ r: N D, , I 1 1 

^11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 



(1) The VASG statement causes assignment of a FASTRAND file of the name 
CARDS. The "T" option specifies the file is to be temporary, i.e., the file 
will be released at RUN completion or at the occurrence of the Executive 
Control Statement, TFREE CARDS. The ''F" specifies that FASTRAND is 
the device to be assigned, 

(2) TheVDATA and f END statements are as stated earlier. The "I" option is 
required to specify "Initial" entry into the system of the following images. 
The "L" option causing the images following to be listed as they are 
written to the file specified. 



11.1.1.4.2. Card Files on Tape 



A card file to be used as input frequently to an ALGOL program may be placed 
on tape by use of the DATA statement in the following simple manner: 
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1 10 20 30 40 


▼ lAiSiGi, |T| 1 |CiA|R|DiS 1, |T| 1 i i i I i i i i i i i i i 1 i i i i i i i i i 1 i i i i i i i 


Yi D|A| T| A|, 1 L| 1 1 1 |C|AjR|D|S, i i i i | , i i i i , i i i | i i i i i i l. _.l.__i .Li.l.x -L-L i i .. 


1 1 1 1 1 1 l~l 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1- L L_L„ 


1 1 1 1 1 1 1-1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I. .1 .1 l.-L 1. 1. 


1 1 1 1 1 1 1 — 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ]< 1 1 1 • 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 |C|A|F(|D| |I |M|A|G|EiSi i i i i i 1 i i i i i i i i i 1 i i i i i i i i i 1 i i i i i i i 


1 .1 1 1 1 1 i — i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 I— 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 |—| 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


▼i E| N| Df 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 





The external control statement required in an ALGOL program RUN stream to 
assign the card file, now on tape, would be as follows: 



10 



20 



30 



40 



Ti A|S|G| , |T | 



1 i__i |C|A|R| D | S I , |T | 1^ J I I I I I I L__L_j I L 



J L_J L_l. 



J I I L_i_ 



where the device specification ''T" following the file name indicates 
tape input. 

Provided that the Assignment Statement precedes program execution in 
the RUN stream, the ALGOL I/O system will accept the specified DATA 
tape file as card input and process it as such. The input of card images 
from tape is restricted to tape files created by the^DATA statement 
and tape files outputted by the ALGOL I/O system as blocked items. 
The creation of the DATA tape file is unrelated to the ALGOL program. 
The process is an Executive feature. 



11.1.1.5. Compiler Generated Assignment Table 

At the completion of an ALGOL compilation a table of File Assignment State- 
ments is listed. The table reflects, with exceptions, the actual control state- 
ments to be submitted to the Executive by the ALGOL initializing element and/ 
or by the ALGOL system at execution. 

The exceptions noted above are as follows: 

For files declared as DRUM specifying a drum file description part the size 
of areas and number of areas may be specified as arithmetic expressions 
and therefore are unknown values at time of compilation. The FASTRAND 
Assignment Statement requires specification of the FASTRAND area size 
to be reserved for the file. The specification field for the reserve is filled 
with asterisks during compilation. The asterisks are replaced with the 
actual value during execution when the value is known. 
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(2) Ambiguity in device association can result from tile declarations intended 
to specify labelled input tapes or card files. Example: 



1 






10 






20 30 


40 




^J 


1 1 


1 1 1 


1 I 1 1 


1 1 1 1 


1 1 


1 1 1. 1 1 1 1 1 1 1 1 1 1 II 


_J L L 1 1 1 J 1 -I . L J i J 


L^J„ i ._ 


1 


1 1 


1 1 1 


, , |F,I 


J.L^L_i 


l|N, 


,C,A|R,D,S, ,(,1,.,1,4,)|; , , 


1 1 1 1 i 1 1 1 A 1 L L .. 


... 1 a -_ 





















The compiler cannot determine the intended device and therefore assumes 
tape and produces a tape File Assignment. The statement is listed in the 
table of assignments which is printed following compilation under the 
heading CARDS or TAPE. 

At the time of program execution the ALGOL initializing element will resolve 
the conflict. If a DATA file of the name in question has been previously 
assigned to the RUN, the generated tape Assignment Statement will not be 
submitted to the Executive. If the file name is unknown by the Executive, 
i.e., in the absence of an external assignment, the tape Assignment Statement 
will be utilized. 

Inefficiency in the file assignment due to ambiguity in device association can 
be easily avoided by the use of the output media part value "3" in file 
declarations specifying card files. 

Example: 



1 10 




20 






30 




40 




1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 


1 1 1 1 1 1 1 1 


L J_ 


1 1 1 


_L. 1 .1 1 1 


1 1 ! 


1 1 1 1 


1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


.1 , 1 . .1, 1 1 1,1 1 1 1 Fi 1 


iLiEl 1 


liN, iCiAIRiDiSi 


|3| 


i(i1i 


.|l|4|)i ;i 


1 1 1 


1 1 1 1 


L .1 1 1 1... 1 



The compiler will not assume a tape file if "3" is used. 

(3) All card, printer, and punch File Assignment Statements are listed under the 
heading PERIPHERALS. The card File Assignment Statements are never 
submitted to the Executive. They are listed to acknowledge the file and its 
associated device. 



(4) The file names of files declared as designated devices are listed under that 
heading. Device association will be attempted by the ALGOL initializing 
element as described in the following section on user external assignments. 
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11.1.1.6. User External Assignments 

11.1.1.6.1. External Assignment Statements 

The ALGOL programmer may override any or all compiler generated File 
Assignment Statements. The presence of an external File Assignment State- 
ment in the run stream will inhibit the submission of the ALGOL compiler 
generated statement. 

The ALGOL initializing element is given control prior to execution of the 
ALGOL object program. The initializing element queries the Executive as to 
the status of each file specified in a file declaration. If the file is externally 
assigned the initializing element bypasses assignment action for the file in 
question. However, compatibility checks are made to insure, for example, that 
a file declared as output has not been externally assigned to a device restricted 
to input, i.e., a card file. The following table reflects allowable changes in 
the device declared in the file declaration via external assignments. 



Device Declared 

In ALGOL Program As 


May be Externally 
Assigned as 


CARDS 


CARDS, TAPE, FASTRAND 


TAPE IN 


TAPE, FASTRAND, CARDS 


TAPE OUT 


TAPE, FASTRAND 


DRUM IN SERIAL 


FASTRAND, TAPE, CARDS 


DRUM OUT SERIAL 


FASTRAND, TAPE 


PRINTER 


FASTRAND, TAPE 


PUNCH 


FASTRAND, TAPE 


DESIGNATED DEVICE 


any except CARDS 



Note: Files declared RANDOM or UPDATE may not be changed by external 
assignment. 

TABLE 11-^1. Internal/External Device Assignment 

Buffer and item sizes must be compatable for changed devices. Card files, as 
described previously, are expected to be inputted in the System Data Format as 
created by the DATA statement. Therefore, an External File Assignment chang- 
ing a card file to a tape or FASTRAND file must specify a file created by 
either a DATA statement or a file outputted by the ALGOL I/O system with . 
buffer specifications of 224 word block size, 14 or less word item size. Tape 
or drum serial files changed to card files must have been declared with buffer 
specifications of blocked items with a block size of 224 words. 

A punch file changed to a tape file by an External File Assignment will 
produce as output a tape file in the format acceptable to the ALGOL I/O 
system as card input. 
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11.1.1.6.2. Designated Devices 



If a file declared as a designated device is not externally assigned by the 
user the initializing element will query the console operator with the message, 
"file name. DEVICE". 

Acceptable responses are any of the file declaration output media types except 
"3" (CARDS). Drum files must be indicated by S, R^ or U responses to indicate 
accessing technique. Care should be taken by the programmer to avoid the con- 
sole communication method of device association. It is time consuming and 
requires operator knowledge of the response or on the spot attendance of the 
programmer. It is offered by tiie ALGOL I/O system as a last resort effort prior 
to program termination action. 



11.1.2. Blocking Specifications 

11.1.2.1. Unblocked Records 

The buffer size specified for unblocked records is accepted as the actual data 
word size of the block to be read or written. Three control words are added to 
the buffer size when creating a block. 

Example: 

The blocking specifications of 

1,253 

will create a block of two hundred fifty-six words. Three control words and two 
hundred fifty-three data words are written per block. 

The control words are invisible to the user, i.e., they are never passed to the 
calling program when read. 

FORTRAN V unformatted data blocks on tape are compatable with the above 
specification. FASTRAND files created and/or read by FORTRAN V yield two 
hundred forty-nine data words. To write or read FORTRAN V unformatted data 
blocks on FASTRAND the blocking specification of (1,249) is compatable. 

11.1.2.2. Blocked Records 

The buffer size specified for blocked records is accepted as the actual block 
size to be written. A single control word is affixed to each item of twenty-two 
or less Words. An additional control word is inserted for each additional twenty- 
two words of an item or portion thereof. 

Items or portions of items are never spanned across blocks. A bypass record is 
written to fill any unused words at the end of a block. 

Example: 

The blocking specification of 
1,224,22 
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will create a block of two hundred twenty-four words. Nine items of twenty-two 
words and one control word, and one bypass record of one control word and 
sixteen void words will be written per block. The bypass record will never be 
passed to the calling program when the records are read. 

FORTRAN VJformatted data blocks on tape or FASTRAND are compatable with 
the blocked specification example presented previously. The bypass records will 
be ignored. 

To eliminate bypass records and unused space in blocked records the user should 
compute buffer sizes in terms of item sizes and control words. 

In the determination of the most efficient block size for blocked variable length 
records the maximum record size sould be considered as the item size to establish 
an acceptable minimum number of records per block. 

As indicated previously, a blocked record file is produced in modified Systems 
Data Format. 

SDFF block size is two hundred twenty-four words while ALGOL I/O permits 
block size to be specified by the programmer. The ALGOL I/O bypass control 
word would be considered as a data control word if read by the Executive System. 
An SDFF, acceptable to the Executive system, can be output on tape or 
FASTRAND through the ALGOL I/O system as an unlabelled file if the standard 
SDFF block size is specified and care is taken to assure that each entire block 
is filled with items thereby eliminating bypass records. An SDFF can be read 
in the forward direction only by the ALGOL I/O system provided the standard 
buffer size and majcimum item length are properly specified. SDFF label, bypass, 
and end of file control words are acknowledgedby the ALGOL I/O system. 

11.1.2.3. ALGOL I/O Formats 

11.1.2.3.1. Unblocked Records 



HI 



S4 



T3 



LB 



BSN 




CHECKSUM 



LB 



BSN 
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N = number of significant words (buffer size specified) 
LB - last block flag 

=: not last block 

1 =- last block 
BSN - always 

11.1.2.3.2. Blocked Records 



CONTROL WORD 




CONTROL WORD 



N < 22 
Control Word 



SI S2 S3 S4 T3 



it 


IL 


PL 


ti 


SEQ NO. 



SI = it = 00 = data or bypass image 

= 077 = EOF image 

82 = IL = image length n 

53 = PL= length of previous image 

54 = ti = 010 = data word image 

= 040 = bypass image 

= 030 = EOF image 

T3 =SEQ. NO. = image sequence number within logical record 
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11.1.3. Internal Buffering 

Punch and print files are not buffered by ALGOL I/O. The PNCHA$ and PRNTA$ 
interfaces with the Executive provide the required buffering action. 

Card files being of Systems Data Format are always read with a look ahead factor 
of one buffer, i.e., two blocks of two hundred twenty-four words are initially read. 
When the second block is accessed the first is refilled (if end of file has not been 
encountered). The tv/o block look-ahead provides immediate sequential access to 
a minimum of twenty-eight card images. The Systems Data Format of DATA files 
truncates unused (blank) words at the end of the image. Therefore, depending on 
the content of each card the number of images per each two hundred twenty-four 
word block may vary from fourteen to one hundred twelve. The truncated blank 
words of a card image are restored upon access of the image. Card file item size 
is always fourteen words. 

Tape and drum SERIAL or drum UPDATE files are read or written with a look ahead 
factor of the number of buffers specified plus one. Drum RANDOM files are never 
buffered. 

Direction changes in reading unblocked serial files cause look ahead buffers to be 
drained and refilled with blocks read in the opposite direction. 

The time wasted in this process should be carefully considered when programming 
frequent direction reversals. Direction changes in reading blocked records will not 
cause buffers to be drained and refilled unless continued reads require access of 
the next or previous buffer. Frequent direction changes if confined to records with- 
in the current buffer are not penalized by the system overhead required for draining 
and refilling buffers. 

11.1.4. File Labelling 

11.1.4.1., Tape File Labels 

11.1.4.1.1. Output 

An output tape file is initially read to test for the presence of a label. If a 
label exists, expiration of the purge date is checked. If no label exists or the 
purge date has expired, the tape is positioned at load point for a subsequent 
write operation. If purge date has not expired, the tape is rewound to load 
point and a console message is outputted to inform the operator of this status. 
A response of G to the console message will permit the file to be overwritten 
despite the purge date. A response of A is interpreted as an indication that a 
new tape had been mounted and the label check will be reinitiated. 



A standard one hundred twenty word label is written as the first block of a 
labelled output tape. 
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11.1.4.1.2. Input 



The standard one hundred twenty word label is expected as the first block of 
a labelled input tape. The file name within the label is compared to the file 
identifier specified in the file declaration. If the file name is correct, the 
program continues. If the file name is incorrect or the label is not present, a 
console message is outputted and the tape is repositioned to load point. An 
operator response of G will permit tiie file to be read despite the file name 
discrepancy. A response of A indicates that a new tape has been mounted 
and the label check should be reinitiated. 



11.1.4.2. Drum File Labels 



All files declared as DRUM are written with an initial label block (one sector). 
Within blocked record files the first word of the label is a SDFF label control 
word which when read by the Executive System or by FORTRAN V causes the 
entire sector to be bypassed. In unblocked files the label block is a void block, 
i.e., zero significant words. The ALGOL I/O system will check purge date within 
the standard label prior to performing a write operation. If the purge date has 
not expired a console message permits the response, G, to continue processing, 
the only alternate response acceptable to the ALGOL I/O system is an A, in- 
structing program termination. 

Buffer and/or item sizes will be extracted from the standard labels and (1) will 
be compared for compatibility with the specifications of the file declaration or 
(2) will be utilized in file processing in the absence of file declaration specifi- 
cation. 



11.2 DECLARATIONS 



11.2.1. General 



Each particular I/O declaration will be discussed separately in succeeding 
sections. 



11.2.1.1. Syntax 



<I/0 declaration> : : = <file declaration> | <switch file declaration> | 
<format declaration> j <switch format declaration> | 
<list declaration> | <switch list declaration> | <namelist 
declaration> I <line declaration> 



11.2.1.2. Semantics 

I/O declarations define the files, formats and lists to be used in I/O statements. 
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11.2.2. File Declaration 



11.2.2.1. Syntax 



<file declaration> : : - <reel save part> <file lock part> <mode part> <density 
part> FILE <in-out part> <file identifier> <label equation part> 
<station part> (<buffer part> <save factor>) 

<reel save part> : : = <empty> | SAVE 

<file lock part>:; : = <empty> | SAVE 

<niode part> : : ~ <empty> | ALPHA 

<density part> : : = <empty> |HIGH | LOW 

<in-out part> : : = <empty> | IN [ OUT 

<file identifier> : : = <identifier> 

<label equation part> : : = <output media part> <drum file description part> 
<label part> 

<output media part> : : = 0ll|2t3|4|5|6|7|8|9l DRUM <drum access technique> 
<empty> 

<drum access technique> : : = SERIAL | RANDOM | UPDATE | <empty> 

<drum file description part> : : = []<number of areas> : <size of areas>2] | 
<empty> 

<number of areas> : : = <arithmetic expression> 

<size of areas> : : = <arithmetic expression> 

<label part> : : = <file identification part> | <multi-file identification part> 
<file identification part> | <file identification prefix> 
<file identification part> | <empty> 

<file identification part> : : = "12 or less string characters" 

<multi-file identification part> : : = "12 or less string characters" 

<file identification prefix> : : = "12 or less string characters" 

<station part> : : = <empty> | <station identification> | <station part> 
<station identification> 

<buffer part> : : == <number of buffers> , <buffer length> , <maximum record 
length> I <number of buffers> , <buffer length> | <number of 
buffers>, <record specifications> | <number of buffers> 

<number of buffers> : : = <arithmetic expression> 
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<buffer length> : : = <arithmetic expression> 

<maximum record length> : : = <arithmetic expression> 

<record specifications> : : = <unblocked specification> | <blocking 
specifications> | <empty> 

<unblocked specification> : : ^= <fixed physical record size> 

<blocking specification> : : = <fixed logical record size>,<fixed physical 
record size> | <fixed physical record size>,<fixed logical 
record size> 

<fixed physical record size> : : -^= <arithmetic expression> 

<fixed logical record size> : : = <arithmetic expression> 

<save factor> :. : = SAVE <arithmetic expression> | <empty> 

11.2.1.2. Semantics 

(1) Reel Save Part 

The real save part is applicable to magnetic tape files only. When SAVE 
is used the operator will be instructed to remove the reel when the block 
in which the file was declared is exited or when a close statement is 
encountered. 

(2) File Lock Part 

The file lock part is applicable to DRUM files only and relevant only when 
a file is initially created. When SAVE is used the file is catalogued (made 
permanent) when the block in which the file is declared is exited or when a 
close statement or lock statement specifying the file is encountered. 

(3) Mode Part 

The mode part is applicable only to magnetic tape files. When ALPHA is 
used BCD format is assumed. 

(4) Density Part 

The density part is applicable to magnetic tape files only. HIGH specifies 
SOOppi., LOW, 200ppi. In the absense of density part, high density, 800 
ppi., is assumed. 
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(5) In/Out Part 

IN or OUT must be specified for files having only one mode, i»e. card files 
may only be read, therefore IN is required; for printer files OUT is required. 
IN or OUT may be specified for drum or tape files to protect against er- 
roneous efforts to write onto input or read from output. The absense of IN 
or OUT permits reading and/or writing of drum or tape files. The in-out part 
must be empty for UPDATE drum files and tapes to be written, rewound and 
read. 

(6) File Identifier 

For card files the identifier must be exactly that specified externally in the 
ASG and DATA control statements. 

The file identifier must be specified in all I/O statements referencing the 
declared file. At the completion of any read statement the file identifier 
may be referenced as an integer variable to yield number of words read. 

(7) Output Media Part 

The types of the output media part identify the associated device. 



TYPE 


DEVICE 





Card Punch 


1 


Printer 


2 


Labelled Tape 


3 


Card Input File 


4 


Printer 


5 


Labelled Designated Device 


6 


Printer 


7 


Unlabelled Designated Device 


8 


Paper Tape Punch 


9 


Unlabelled Tape 


DRUM 


FASTRAND or Simulated FASTRAND 


empty 


Labelled Tape 



Types 1, 4, 6 are identical. 



The value "3" is obviously an exception in that it alone specifies an input 
file. It is not mandatory, however, more efficient file assignment will result 
from the use of "3" in file declarations of card input files. 

A "Designated Device" is accepted as a file without device association at 
compile time. At execution of the resulting object program the file must be 
either externally assigned or the type keyed-in via console in reply to the 
query "file identifier. DEVICE". Acceptable key-ins are any of the numeric 
types or R (random), S (serial), U (update) for drum files. Card files may 
not be keyed-in. 



UME-7636 



UNI VAC 1108 
EXTENDED ALGOL 



11 



SEC TION: 



15 



(8) Drum Access Technique 

The accessing technique must be specified for files declared as DRUM . 
SERIAL indicates sequential access of records/blocks. Buffering of higher 
numbered records/blocks is performed on files read and buffering of records/ 
blocks is performed for files written. 

Files declared RANDOM will not be buffered for reads or writes, however a 
write of blocked records will be preceded by a read to protect adjacent 
records, A record address is always required for RANDOM reads or writes. 

UPDATE processing is possible only with permanent files previously 
created by the SERIAL or RANDOM process. Reads and writes are buffered. 
Writing of blocked records will be preceded by a read if the block is not 
currently in the core buffer. 

(9) Drum File Description Part 

The drum file description part is relevant only when the file is initially 
created. It should not be used with files declared IN. Absence of the 
drum file description part implies reference to a catalogued file for files 
declared OUT. 



For SERIAL and RANDOM files if the drum file description part is present 
and the file is declared OUT or the in-out part is empty a temporary file is 
created and made permanent only if SAVE is specified in the file lock part 
and/or a lock statement is encountered. 

Drum file description part is never specified for files declared UPDATE. 

The creation of a RANDOM file will fill the entire area specified preceding 
the current record with void (zero) records if not previously written. Sub- 
sequent write operations will overlay the void records. Subsequent read 
operations will return either the specified record if present or zeros. 

The creation of a SERIAL file will assign the specified size as the reserve 
size. The unused area following a close of the file will be released to the 
Executive. However, if catalogued, the file may be extended to the system 
specified maximum. If temporary a close results in release of all areas 
assigned. 

The size of areas times the number of areas yields the total number of words 
to be assigned on drum. Internal computation converts the number of words in 
terms of sectors (28 words), tracks (64 sectors), and positions (64 tracks). 
Track and position are acceptable granules to the Executive system. Assign- 
ment of drum (FASTRAND or Simulated FASTRAND) is made in terms of 
tracks or positions as reserve sizes of the file. Unused areas are available 
to the Executive for other assignment. However, extension of the file up to 
the system maximum is available to the user upon request. Blocks written to 
drum always begin at the first word of a sector and may end at any word with- 
in a sector. 
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(10) The file identification part will be utilized as file name in all internal 
library Executive references. In its absence, file identifier will be used 
as the file name. The Executive references are file assignments, catalogu- 
ing, releasing, reading, writing, etc. 

(11) File Identification Prefix 

The file identification prefix is applicable to files declared DRUM only. 
The file identification prefix will be utilized as the file qualifier. In its 
absence the Project ID specified in the RUN control image will be used by 
the Executive as the file qualifier. 

The file qualifier is required in all references to catalogued files. If file 
identification prefix is absent in a declaration referencing a catalogued file 
the qualifier is automatically the Project ID. 

(12) Multi-File Identification Part 

The multi-file identification part is applicable to magnetic tape files only. 
When present it is used as the file identification part as described above. 
The file identification part is then used as the tape label name and written 
in or searched for in the labels of multi-file tape reels. 

(13) Station Part 

Station part y/ ill be utilized to cause print files to be output to the remote 
station initiating the RUN. Station numbers have yet to be determined. 

(14) Buffer Part 

Buffer sizes for card input or output files are 14 words. Printer files re- 
quire 22 word buffers* Buffer specifications for card or printer files if 
other than the above will be ignored and the standard sizes assumed. 

If a file is to be blocked, the logical and physical record sizes specified 
will be compared. The lesser value will always be assumed to be the 
logical record size without regard to the sequence in which they occur. 

The block size written to drum or tape for unblocked items is three words 
greater than the specified buffer size. Block size of blocked items is 
equal to the specified buffer size, however, the number of items per block 
is equal to block size divided by item size plus the number of control words per item. 
For item size of twenty two words or less, the number of control words per item is one; 
for item size greater than twenty-two words an additional control word is required for 
each additional twenty-two words or portion thereof. Blocking specifications should be 
computed to compensate for control word requirements. Items or portions of items 
less than twenty-words are never spanned across blocks. Bypass records are used 
to fill any unused words at the end of a block. 
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(15) Save Factor 

The save factor is applicable to labelled tape and drum files only. The 
value specified will be added to the current date and inserted in the file 
label. The file cannot be written again until the purge date in the label, 
if any, has expired. 



11„2.2.3. Restrictions 



(1) File names must be unique throughout an ALGOL program. Files may not 
be declared twice in the same block. 

(2) Files declared UPDATE always reference catalogued files previously 
created and declared as SERIAL or RANDOM. 

(3) Temporary files are released at the end of the block in which they are declared or 
if CLOSE is encountered. Subsequent references to a released file will result 

in transfer of control to EOF or EOR labels when specified or the next 
statement if EOF or EOR are absent. 

A file declaration in a nested or disjoint block specifying the same name as 
a previously closed temporary file will cause assignment of a new temporary 
file of that name, however the content of the released file is unavailable. 

(4) A second file declaration of a previously declared file, if in a nested block, 
will cause an automatic close of the previously declared file. 

(5) Files may not be declared within a procedure. 



11.2.2.4. Examples 





, , , , ,F,I,L,E, II, N, ,C,A,R,D,S, , 31 ( , 1 ,, , 1 ,4 , ) , ; , , , 1 i ! 1 , , 1 , 1 


, , , , ,F|l,L,£i lOiUiT, iPiRil ,N,T,E|R, ,1, . ( , 1 , , , 2,2 ,) 1 ; , 1 , i , 1 i i , , i , , , , 1 i , 1 




F, l,L,E, II ,N, ,T,A, P, E, , ( , 1,l2 ,5 ,0 , ) , ; , .,,,!,,,, 1 , , , 1 , , , , 1 , , , 1 




F,I,L,E, |0,U,T, |T,A,P,Ei ,( 1 1 „ ,5 ,3 ,0 , , , 5, 0, ) ;; t , , , i 1 ,, ,,,,,,, 1 ,,,,,,,,, 1 1 




,,, 1 ,F,I,L,E, IT, A, P,E, ,9, ,( ,1 1, 14,4,0 „ ,1,0,),;, , 1 ,,,,,,,,, 1 ,,,,,,,,, 1 ,,,, , ,,,,,,,,, 1 




F|I,L,E, |0,U,T, ,T,A,P,E, , ' |M,U, L,T, 1, F, 1 , L, E, ' ; , ' ,L ,A ,B ,E ,L , N, A,M| E, ' , ,( ,1 ,, ,2 ,5 , 2 , , | 2, 0, ,S ,A, X E, .I,)!;, , , | 


1 , , , , , ^ ^ ^ , 1 1 , , , , , , , , 1 , 1 , , , , 


A,L,P,H,A| ,F,I,L,E, ,I,N, ,T|A,P,E, , (,1 „ , 5, 0,) i ; 1 ,,,,,,,,, 1 ,,,,,,,,, 1 , , , 1 




, , , , ,S,A,V,E, |F,I,L,E, ,0,MT, ,T|A,P,E, ,9, , ( , 1 „ ,4 1 0, 0, ) ,; , , , , , , | , , , I , , , I , , I 




, , , 1 ,F,l,LiE, IO,NiEi iD,R<UiMi i SI EiRi 1 lA, Li i [] 1 , 0, : 1 5 lO, Oi ], ( , 1 , , ,5 lO lO 1) i; i I , i . i i i i i i 1 i i i i i i i i i J 




, , , , ,F,I,L,E, |0,U,T, ,F,I,L,E,1, |D,R,U,M, ,S,E,R,IA|L, , PiA,! , B, : ,S , 1 ,Z , E.li , ' ,D,R, UiM, ' , ' 1 F, 1 ,L,E, 1, ' , ■ ( , 1 , , 16 ,0 ,0 ,) ,; , , , , , 1 




, , , , ,S,A,V,E, 1F,I,L,E, ,0,U,T, ,T|W,0, ,R,A,N,D,0,M, | fil ,0 i^ i6 ,0 ,0 ,0 ,1, | ' ,R,A,N,D,0,M, ' , , ' |F, 1 ,L,E, 2, ' , ,( ,1 , , |4 ,2 ,0 , , , 1, 0, 0, ) ,; , | 





UME-7636 



UNIVAC 1108 
EXTENDED ALGOL 



11 



SECTION: 



18 



11.2.3. Switch File Declaration 

11.2.3.1. Syntax 

<switch file declaration> : : = SWITCH FILE <switch file identifier> : = 
<switch file list> 

<switch file identified : : = <identifier> 

<switch file list> : : = <file identified j <switch file list>,<file identified 

<file identifier> : : = <identifier> 

11.2.3.2. Semantics 

The switch file declaration associates a switch file identifier with a number of 
files as designated by the file identifiers in the switch file list. 

Associated with each of the file identifiers in the switch file list is an integer 
reference. The references are 0,1,2, ... n— 1, obtained by counting the identifiers 
from left to right. This integer indicates the position of the file identifier in the 
list. The file identifiers are referenced, according to position, by switch file 
designators. 

If the switch file designator yields a value which is outside the range of the 
switch file list, the file so referenced is undefined. Each file identifier used in 
a switch file list must have appeared previously in a file declaration, and each 
file is governed according to the file declaration in which it was declared. 

11.2.3.3. Examples 
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11.2.4. F'ormat Declaration 

11.2.4.1. Syntax 

<format declaration> : : = FORMAT <input or output> <format edit part> 

<input or output> : : = SN] OUT | <empty> 

<format edit part> : : = <format identifier>(<editing specifications>)| 

<format edit part>,<forniat identifier>(<editing specifications>) 

<format identifier> : : = <identifier> 

<editing specifications> : : = <editing segment> | <editing specifications>/| 
/<editing specifications>|<editing specifications>/ 
<editing segment> 

<editing segment> : : = <editing phrase>|<repeat part>(<editing specifications>)| 
<editing segment>,<editing phrase>|<editing segment>,<repeat 
part>(<editing specifications>) 

' <editing phrase> : : = <repeat part> <editing phrase type> <field part> | <string> 

<repeat part> : : = <empty> | <unsigned integer> 

<editing phrase type> : : = A|D|E|F|I|L|0| X|P|R|S 

<field part> : : = <empty> | <field width>.<decimal places> 

<field width> : : = <unsigned integer> 

<decimal places> : : = <unsigned integer> 

11.2.4.2. Semantics 

The formal declaration associates a set of editing specifications with a format 
identifier. The following discussion of format declarations is divided into two 
parts: those used for input and those used for output. 

11.2.4.2.1. Input Editing Specifications 

Input data can be introduced to the system by various media such as punched 
cards, magnetic tapes, or paper tapes. Once the information is in the system, 
however, it may be considered a string of 6-bit characters regardless of the 
input equipment used. 

For editing purposes this string can be processed as a set of six-bit char- 
acters. The input editing specifications, through the editing phrases, desig- 
nate where and in what form the initial values of variables are to be found in 
this string. 
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11.2.4.2.1.1. Input Editing Phrases 



The editing phrases designate six-bit character processing. They describe 
a portion of the input data in which the initial value of one variable is to be 
found. 

A phrase such as rAw has the same effect as Aw, Aw..., Aw(r times), where 
r is the repeat part and w the Held width. The tield width may specify from 
one to 63 characters. If the repeat part of an editing phrase is empty, it is 
given a value of 1. 

Characteristics of the input editing phrase types are summarized in the 
following table: 



Editing 
Phrase 
Type 


Editing 
Phrase 
Exaimple 


Type of Variable 
Being Initialized 


Example of Field 
Contents 


A 


A6 


Any 


TOTALS 


D 


D 


None 


Any Operand 


E 


E9.2 


Real or Complex 


+ 1.18 E-03 


F 


F7.1 


Real or Complex 


-3892.5 


1 


16 


Integer 


-12345 


L 


L4 


Boolean 


TRUE 








Any 


777771244121 


R 


R11.2 


Integer, Real or 
Complex 


+2143567E+4 


S 


S+2 


Real or Complex 


None 


P 


P15.7 


Double 


+2.1234567D-212 


X 


X6 


None 


Any 6 Characters 



Table 11-2. Characferistics of Types of Input Edit Phr 
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The definition of each input editing phrase type is given below; 

a. A - initializes a variable to the characters found in the field described 
by the field width. If the field width is greater than N (where N is 
either six for a single precision variable or twelve for a double pre- 
cision or a complex variable), the left most N characters are taken as 
the value to be assigned to the variable. If the field width is less than 
N, spaces are filled to the right of the characters in the field to make 

a total of six characters. The type of the variable can be any, however, 
the data transferred from the data string is treated as alpha information 
and the variable is initialized with alpha characters. 

b. D — causes six characters in the input data string to be ignored. The 
field part should be empty. The use of editing phrase type D is equiva- 
lent to the use of editing phrase X6 (See type X). 

c^ E ~ initializes a variable to the number found in the field described by 
the field width. The field width must be at least 7 greater than the 
number of decimal places specified since the input data is required to 
be of either of the following forms: 

±n.dd d@±ee 

±n,dd dE±ee 

The sign of the number must appear first. A digit and a decimal point 
must follow the sign. One or more digits may follow the decimal point. 
The number of digits following the decimal point must equal the number 
of decimal places indicated by the editing phrase. Following the digits 
must be the symbol E or |SI, the sign of the exponent, and a two digit 
exponent. The sign of the number may be indicated by +, — , or a single 
space which is interpreted as positive. 

d. F — initializes a variable to the number found in the field described by 
the field width. The input data must be found in one of the following 
forms: 

±nn n.dd— d 

±.dd d 



The sign of the number is optional. If there is a sign, it must appear 
first; if there is no sign, the number is assumed to be positive. A 
decimal point must be present; zero or more digits may precede it. There 
must be as many digits after the decimal point as specified by the 
decimal places in the editing phrase. The number must be right-justified 
in the designated field. 
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e. I — initializes a variable to the integer found in the field described by 
the field width. The sign of the number is optional; the applicable rules 
are the same as in the case of editing phrase F. The number itself may 
consist of one or more digits which must be right-justified in the desig- 
nated field. 

f. L — initializes a variable to the logical value found in the field described 
in the field width. There are two possible values, TRUE and FALSE. 
The programmer may truncate these input words as follows: 

T or F must appear in the field but need not be the leftmost character. 
The T or F can be preceded or followed by any number of spaces to fill 
the field. If T or F is not the leftmost character of the field, it must be 
preceded only by spaces. Whenever the T or F appears it can be followed 
by any characters in the field and need not be RUE or ALSE, respectively. 

g. — initializes a variable to the contents of N octal digits taken from the 
input string, where N is equal to 12 for a single precision variable or 
equal to 24 for a double precision variable or a complex variable. The 
field part is ignored and should be left empty. However, the field width 
is always set to 12 or 24 and 12 or 24 characters are taken from the in- 
put data string. If either 12 or 24 characters are not available in the 
input data string, invalid data will be transferred. 

h. P — is used with double precision numbers. P initializes a variable to 
the number found in the field described by the field width. The field 
width must be at least 8 greater than the number of decimal places 
specified since the input data is required to be of the following form: 

tn.ddd dD + eee 

The sign of the number must appear first. The sign may be indicated by 
+ , — , or a single space which is interpreted as positive. A digit and a 
decimal point must follow the sign. One or more digits may follow the 
decimal point. The number of digits ipust be equal to the number of 
decimal places in the editing phrase. Following the digits must be the 
symbol D, the sign of the exponent, and a 3 digit exponent. 

i. R — initializes a variable to the contents of an input field which may be 
written according to the specifications of the I, F, E, or P editing phrase. 
The R field has the following syntax: 

<R field> : : = <signed R field> | <unsigned R field> 

<signed R field> : : = <sign> <unsigned R field> 



<sign> : : = (- I — 

<space>: : = <single space> | <space><single space> 

<unsigned R field> : : = <I field>|<F field> | <E field> |<P field> | 

<space> I <space> <unsigned R field> j <unsigned R field> 
< space> 
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<I field> : : = <unsigned integer> 

<F field> : : = <I field> . <unsigned integer> j . <unsigned integer> | 
<unsigned integer> . 

<E field> : : = <F field> <E part> | <E part> | <F fieldXspaceXE part> 

<E part> : : = E <exponent> | (g)<exponent> 

<P field> : : = <F field> <P part> | <P part> I <F field><space><P part> 

<P part> : : = D<exponent> 

<exponent> : : = <unsigned exponent> | <sign><unsigned exponent> 

<unsigned exponent> : : = <digit> | <digit> <digit> 

The action of the R format (RW) is essentially a free field scan within 
the fixed field W. Four cases are possible: 

(1) Entire field is blank. For this condition a minus zero is generated. 
This condition can be detected programmatically. 

(2) Visible decimal point appears. For this case the field would con- 
tain an F field with or without an E part or P part. That which is 
allowed or restricted is as follows: 

(a) If an E part or P part appears, it must be to the right of the 
F field . 

(b) Leading blanks, trailing blanks and blanks between the F field 
and E part or P part are allowed but ignored. 

(c) Imbedded blanks within F field or within the E part or the P part 
constitute an error condition. 

(d) The decimal places (d) of the RW.d phrase has no meaning and 
is ignored. 

(3) Implied Decimal Point 

The field contains an I field with or without an E part or P part. 

For this case, d specifies the location of an implied decimal point between 

the dth and (d+l)th positions (counting from right to left). That which 

is allowed or restricted is as follows: 

(a) Digits to the left of the implied decimal location are considered 
integer; to the right, fractional. 
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(b) If the I field is completely to the left of the assumed decimal 
point such that blanks appear to the right of the I fie ld but left 
of the assumed decimal point location, an error condition is 
assumed. 



Example: 



Note: 1/ denotes blanks. 
123^m . = error 

(c) If the I field is completely to the right of the assumed decimal 
point location such that the blanks appear to the right of the 
assumed point and to the left of the I field, those blanks are 
considered to be zeros. 

Example: 

Note: \/ denotes blanks. 

.j(S>5)til23=.000123 

(d) Blanks found embedded within an I field constitute an error 
condition. 



Example: 



Note: ^ denotes blanks. 



123. >5)445 terror 



(e) Blanks to the left of the I field and to the right of the I field 



and blanks between the I field and the E part or P par t (if any) 
are allowed and ignored. 

.123J6)iE-2=.123E-2 

(f) An error condition is assumed if the implied decimal point falls 
within the E part or P part. 

(4) The field contains an E part or P part only. An E part or P part with 
or without a leading sign can be used. For this case, a il.O^ee, or a 
tl.ODeee is generated. Leading and trailing blanks are allowed but 
ignored. The decimal places (d) of the RW.d phrase is meaningless and 
is ignored. 
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(5) Miscellaneous notes which apply to all are as follows: 

(a) Overpunching of numeric data is not allowed. 

(b) In any of the above cases if the data are not right justified and 
other than trailing blanks are found, an error condition is assumed. 

(c) An error condition is assumed if anything other than an I field, 
F field , E field, P field , or blank field is found. 

(d) A single digit exponent is allowed. 

j. S — provides the means of scaling data. The S editing phrase is applied 
to R phrases only. The S phrase has the following form: 

S<exponent> 

When an S phrase is encountered in a format, all subsequent values 
associated with an R format phrase are multiplied by the designated 
power of 10, the exponent. More than one S phrase may appear in a format, 
each taking precedence over the one before. 

Example of S editing: 

S-2 

S+4 

S3 

S+20 

k. X ~ causes the number of characters indicated by the field width to be 
ignored. The repeat part of the X editing phrase has no meaning. It is 
ignored and should be left empty. 

1. Strings — if the input editing phrase is a string, the string in the format 
declaration is replaced by the corresponding input string. The number of 
characters transferred from the input string is equal to the number of 
characters in the format declaration which are enclosed between the 
string bracket characters. For strings used in format declarations, a 
maximum of 132 characters is allowed. 



11.2.4.2.1.2. Error Conditions 



When an error condition is encountered during input editing processing, the 
following action takes place; 

1. If no parity action label is specified in the read statetnent, the program 
will be terminated. 

2. If a parity action label is specified in the readf statement, control is 
transferred to this label. The buffer remains unchanged, that is, the 
erroneous data remains in the buffer and will be accessed by the next 
reference to the file. 
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11.2.4.2.2. Output Editing Specifications 

Output can be performed by the system through various media such as magnetic 
tape, line printer, and drum. The information in the system ready for output (in 
the buffer area) but not yet transferred to the output equipment may be con- 
sidered as a string of six-bit characters, regardless of the output media to be 
used. 

The output editing specifications, by means of the editing phrases, designate 
when and in what forms the values of expressions are to be placed in the out- 
put data string. 

11.2.4.2.2.1. Output Editing Phrases 

The editing phrases describe a portion of the output data string into which 
output information is to be placed. This information may be one of three kinds: 

a. The value of an expression. 

b. The characters of the editing phrase itself (where the editing phrase is 
a string)* 

c. The insertion characters (zero) and spaces. 

A phrase such as rAw has the same effect as Aw, Aw, ... , Aw (r times), 
where r is the repeat part and w is the Held width. The field width in an 
editing phrase may specify a length of one to 63 characters. If the repeat 
part of an editing phrase is empty, it is given a value of one. 



Characteristics of the output editing phrase types are summarized in Table 
11-3. 
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E:diting 
F*hrase 
Type 


Editing 
Phrase 
Example 


Type of 
Evaluated 
Expression 


Example of 
Field Contents 


A 


A6 


Any 


RESULT 




D 


D 


None 


6 zeros (000000) 




E 


Ell. 4 


Real, Complex 


-1.2500E-02 




P 


P13.5 


Double 


-1.25012D+124 




F 


F8.3 


Real, Complex 


6735.125 




1 


16 


Integer 


^jiuie 




L 


L5 


Boolean 


)?iTRUE 










Any 


777721412712 




R 


R11.4 


Real, Complex, 
Double 


^2.1231E+09 




S 


S-2 


Real, Complex, 


None in field; result: 








Double 


10**(-2)*R(subsequer 


It) 


X 


X8 


None 


8 blanks 





Table 7 7-3. Character! sties of Types of Output Editing Phrases 

The definition of each output editing phrase is given below: 

a. A — place the value of one expression (N characters, where N is equal to 
six for a single precision expression and twelve for a double precision or 
a complex expression) in the field described by the field width.. The 
counting of the field begins at the high order character, i.e. the leftmost 
character. If the field width is greater than N, N characters are placed 
left justified in the field, the remaining field is filled with spaces. If the 
field width is less than N, the leftmost characters of the expression 
value are placed in the field. The expression can be of any type; however, 
the expression is treated as type ALPHA when an A phrase is used in 
the editing specification. If an A type phrase is used for an expression 
which has type other than ALPHA, alpha information must be set for the 
value of the expression before output editing has taken place. 

b. D - places six zeros in the output data string. No expression is associated 
with the D phrase. The field part should be empty. 



c. E - places the value of one expression in the field described by the 

field width. This value has the following form when placed in the output 
data string: Ji5n.dd...dE±ee 
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The sign of the number is represented by a single space if positive, and 
a minus sign if negative. If the field width minus seven is greater than the 
number of decimal places specified, leading spaces are used to complete 
the field, then the sign of the number, the first significant digit, and a 
decimal point are inserted. The value of the expression is rounded to 
the number of decimal places specified by the editing phrase. If the 
number of significant digits in the expression value is less than the 
number of decimal places specified, the digits are left-justified with 
trailing zeros. To complete the field, the symbol E, the sign of the 
exponent, and the appropriate two-digit exponent are inserted. The sign 
of the exponent is indicated by either + or — . 

d. F - places the value of one expression in the field described by the 
Held width. This value has the following form when placed in the output 
string: 

j6nn n.dd — d 

The sign of the number is represented by a single space if positive, and 
a minus sign (— ) if negative. The value of the expression is rounded to 
the number of decimal places specified by the editing phrase. If the 
number of significant digits thus obtained is less than field width minus 
two, leading spaces are used to complete the field. If the number of 
significant digits is more than field widthminus two, the entire field will 
be filled with asterisks (*). 

e. I — places the value of one expression in the field described by field 
width. The expression is rounded to an integer and placed right-justified 
in the field„ preceded by leading spaces, if any are required. If the number 
of significant digits is greater than the field width minus one, the entire 
field will be filled with asterisks (*). The sign of the number is the same 
as for the E editing phrase type. 

f. L -places the value of one Boolean expression in the field designated by 
field width. Table 11-3 shows the effect of various values of field width. 



Field Width 


BOOLEAN VALUE 


TRUE 


FALSE 


LI 
L2 
L3 
L4 
L5 


T 

TR 

TRU 

TRUE 

TRUEt/ 


F 

FA 

FAL 

FALS 

FALSE 


Ln, where n>5 


Skip n-5 then same as L5 



Table 11-4, Boolean Values for Various Field 
Widths in Output Editing Phrase 
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g. - place the value of one expression in the output data string. The 
number in the field is an octal digit representative. The field part is 
ignored and should be left empty. However, the field width is always set 
to twelve or twenty-four depending upon whether it is a single precision 
value or double precision value or complex value of the expression. 



h. P - place the value of one expression in the field described by the 

field width. P is used for double precision numbers. This value has the 
following form when placed in the output data string: 

tz^n.dd dDteee 

The sign of the number is represented by a single space if positive and 
a minus sign (— ) if negative. If the field width minus eight is greater 
than the number of decimal places specified, leading spaces are used to 
complete the field. Then the sign of the number, the first signficant digit, 
and a decimal point are inserted. The value of the expression is rounded 
to the number of decimal places specified by the editing phrase. If the 
number of significant digits in the expression value is less than the 
number of decimal places, the digits are left-justified with trailing zeros. 
To complete the fiel d, the symbol D, the sign of the exponent, and the 
appropriate 3 digit exponent are inserted. The sign of the exponent is 
indicated by either + or — . 

i. X — places a number of single spaces, as indicated by the field width, 
in the output string. 

j. R — places the value of one expression in the field described by the 
field width. The output will be either an F-type, an E-type or a P-type 
field, depending upon the magnitude of the expression and the type of 
the expression. Assuming that: 

E = exponent number, 

sign = for +, 1 for — , 

W = field width, 

d = number of decimal places to the right of decimal point, and 

I = number of decimal digits to the left of decimal point, then: 



(1) The output will be in F~ format 

(a) if the absolute value of the number is equal to or greater than 1 
but less than the maximum allowable integer, and 

w>I+d+l+sign. 

(b) or if the absolute value of the number is less than 1, and either 

ABS(E)<d 
or 

w<d+6+sign 
or 

w<d+7+sign 
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(2) The output will be inE-format or P-format if the conditions for F- 

format are not met, and 

for E-format w>d+6+sign 

or 

for P-format w>d+7+sign 

(3) If none of the above conditions are met, the field will be filled with 
asterisks. 

k. S - the values associated with the subsequent R format phrases will be 
multiplied by such powers of 10 as designated by the integer in the S 
format phrase itself. More than one S phrase may appear in a format, each 
taking precedence over the one before. 

1. String - an output editing phrase may itself be a stTing. This editing 
phrase is defined as placing itself, except for the delimiting string 
bracket characters, in the output string. However, an apostrophe can be 
placed in the output data string by placing two consecutive apostrophes 
in the string output editing phrase where a single apostrophe is desired 
in the output area. For a string used in format declarations, a maximum of 
132 characters is allowed. 

11.2.4.2.3. The Meaning of Symbol / 

The symbol / (slash) in the editing specifications indicates a termination of 
a record* The rightmost parenthesis of the editing specifications perform the 
function of one Silash. For input editing specifications, n consecutive slashes 
cause n-1 records to be skipped (spaced) from the input file. For output 
editing specifications, n consecutive slashes cause n-1 blank records (records 
filled with spaces) to be written out to the designated output file. 

11.2.4.2.4. Editing Specification for Complex Values 

A complex value is represented by an ordered pair of real numbers. Therefore, 
all editing phrases used for real numbers can be used for complex numbers 
except that a pair of editing phrases is required for each complex number. In 
order to describe the format of a complex number, two editing phrases, one 
for each portion of the complex number, must be used. 

11.2.4.2.5. Restrictions 

1. Input editing specifications cannot be used as output editing 
specifications; the reverse is also true. 



2. An input editing phrase must not be a string. 
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11.2.4.2.6. Examples 



\0 



OPERATION 



40 



COMMENTS 

50 



.i..JL__L _L I 
__L_ 1 _J. J L 

.1 1.. J, 1. J- 

_1_J__J. -1. L. 
.J l_j_l L- 



.J L_J._I L 



_ L_ X. J. . .L-_L^ 
_J I l„_.l 1- 

.J__l ^_l L. 



iF,PiR|M|A|T 

iFiO iRIMiAiT 





I |N, 



_1_L 



lFiQiRIMjAiTi lOiUiT 
.1 I 1 1.1 111 i5 lA 

l. 1 iJ-L i_ 1_ I I I 
11. 1. l^.l l.-L ,1 I I 

iFiOiRIMiAiTi lOiU .T 



A L 1 J i I _ LI I 1 

iF^_0,filMjA|Tj^ lO, U|T 

I i_ I . L-i 11 i I I 

iF|0|R |M|A|Ti |F|M|T 

J L_1_J I I I I l_l_ 



I I I 

E|D|I IT 



1 I I 
Fil, 1( 



6i) 



jFjH 



|F,4|( 



i(iS|- 
LJ__L 



.1. i.j_.i__LL iFiOiRiMjAiT, jO|U,T, ,F,M| 
^ The last character before the r 



, ,2il ,6 ,, 15 |E,9 
(iXi3i,i21EiliO 



Xi5i6i,i'l HE. A 



3i.0j.I 



1 I I 
t. , 



I l_l L L II,. 

iX|2i,,R|3,.il. 



1i2i.|3, ,|S,-j2_ 

_-L-.l_I_ .1_. L. .L__l_. 



1 .l..J_..l l._..i...L..L.. 

2l,i3iFi5,. 11 ,,,X 

._!_ 1 I..J.1_L_1..._ 

,j2j_Fl6iJ) 

■I I I I I 



,i4 



NjGi.'i,iX15 

..l....L.l_.jJ__ 



.1__L._L._L 
I I I I 



7.) 



.1.1. i_.j_l..- 
-i2d.a.iJ. 

,..L 1.1__1__L 

Rj..li.0.i. 4 i; 

_l I 1 -lJ 



>i; 



I' I I I 



,|F 



...I i. 

,iFi2 



.i 
i(IAi 



i.LI 



(Ai6i,iX| 7|,,A|8| /|/i/|/|/, 

ight parenthesis is the letter O not zero. 
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11.2.5. Switch Format Declaration 



11.2.5.1. Syntax 



<switch format declaration> :: = SWITCH FORMAT <switch format identifier> 
<switch format list> 



<switch format identifier> 



<identifier> 



<switch format list> : : = <editing specification part> | <switch format list>, 

<editing specification part> | <format identifier> | <switch format 
list>,<format identifier> | <format identifier>,<switch format list> 

<editing specification part> : : = (<editing specifications>) 



11.2.5.2. Semantics 



The switch format declaration associates a switch format identifier with the 
editing specification part or format identifier in the switch format list. Associated 
with each editing specification part or format identifier is an integer reference. 
The references are 0, 1, 2 ..., obtained by counting the editing elements of the 
switch format list from left to right. The integer reference indicates the position 
of the editing specification part or format identifier in the list. The editing 
specification parts and format identifiers are referenced according to position, 
by switch format designators^ 

If a switch format designator yields a value which is outside the range of the 
switch format list, the format so referenced is undefined. If a format identifier 
is used in a switch format list, it must previously be defined in a format 
declaration. 

Editing specifications are identical to the editing specifications of the format 
declaration fl 1.2.4.). 



11.2.5.3. Examples 



1 




10 




20 


30 




40 50 60 








1 1 1 1 1 1 
iF|OiR|M,A|T 

-_i 1 I 1 .1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 
1 1 . . 1 1 . . 1 1 1 1 1 
1 |S,F| :r-i( iA,6i, |3|I ,4,, 
1 ,( ,1 ,2i),,iFiO,R,l| ;j , 


J i2i. 


1 1 1 1- L.l._l 1 i ±_ L .L._i.l_l_._I LJ. .LJ _.L_J_. 1 1 _X 

1 1 1 1 1 1 1 1 1 , 1 1 1 1 1 1 1 1 l._.X 1 Li I.__l__ 

Xi6jQi) 1, id li 4i,,Xi 2i .i2il|4i,i3ili2j)i,LliXi718i, 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -1 1 1 1 L 1 l_ J 












LJ_L_lSI_|l iTlCH 


1 12 j) u 1 










1 1 1 1 1 1 1 










1 1 1 1 1 1 
111 1 1 1 
iFiOiRiMiAiT 




1 1 1 1 1 1 1 1 1 1 II 
1 1 1 1 1 1 1 1 1 1 II 
iSiHil iFiTi :i-i (iX|7,8,, 


l|2,) 








1 1 1 1 1 1 1 1 








1 1 iSiWil iTlCiH 


,,(,4,A|6,,_jl,2,) ,,,(il|0jA|6i,,l,2,) i; j i l i 1 i _ 
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11.2.6. List Declaration 

11.2.6.1. Syntax 

<list declaration> : : = LIST <list specification> 

<list specification> : : = <list identifier> (<list>) | <list specification>, 
<list identifier> (<list>) 

<list identifier> : : - <identifier> 

<list> : : = <list segment> | <list>,<list segment> 

<list segment> : : = <expression part> | <for clause> <list segment> | 
<for clause> [<expression list>] 

<expression part> : : = Orithmetic expression> | <Boolean expression^ 

<expression list> : : = <list segment> | <expression list>,<list segment> 



11.2.6.2. Semantics 



A list declaration associates a set of expressions (arithmetic or Boolean) with 
a list identifier. The list identifier may be used in a read statement for the 
variables to be initialized and the order in which the initializing is to be done. 
The list identifier may be used in a write statement for specifying values to be 
included in an output operation. These values are placed in the output string in 
the order of their appearance in the list declaration. Variables in a list declaration 
may be either local or non-local to the block in which the list declaration appears. 

Restrictions: 

1, Since any expression other than a variable is meaningless in an input opera- 
tion, a list identifier used in a read statement must refer to a list declaration 
which includes variables only. 

2, When used for input, the variables in a list declaration must have been de- 
clared as type REAL, INTEGER, ALPHA, BOOLEAN, DOUBLE, or 
COMPLEX. 
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11.2.6.3. Examples 



LABEL OPERATION OPERAND COMMENTS 

1 10 20 30 40 50 60 




1 11 1 1 1 )L,liSiT, ,L,1, ,( |X,,,Y, ,;A,1I,J J,,, .FO,R, |I,:,",P, ,S,T,E,Pj |1, ,U,t^T,IL, ,5, |D,0, jB^Q" H lK ' i 1 i , , i i ■ , i 

1 1 1 1 1 1 1 1 1 1 ) 1 1 ' 1 ! 1 1 1 1 • 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


,,,,,, ,L, liSIT, ,A,NiS,W,E,R,S, l( ,P, i , Q, , , Z, , ,S ,Q ,R U , ( ,R ,) ,) „ , ,R.E,S |U ,L ,T ,S , ( , X, 1 „ ,X,2 I. , X, 3„ ,X,4 ,/ ,2 , ) , ; 






,,,,,, |L,I,S|T| ,L,I|S,T,3| ,(,F|0,R, ,l,:|=0, ,S,T|E,P, ,1, ,gi^T,l,L| ,1,0, ,0,0, ,F,0,R| |J,:|=,0( |S,T|E,P| ,1, ,U,N,T,I,L, 


1 , 1 1 , 1 ,,,,,, 1 , 1,5, ,D,0, ,A,r,ll, ,J,n,) ,:,,,, I 1 ,,,,,.,,, 1 ,, , 1 , , , , , I , , 


,,,11,11,1 1 ,,,,,,,,, 1 ,,:,,,,, I 1 ,, , 1 , 1 , , , , , 1 , 1 , , , , 1 1 , , 




,,,,,, ,L,I,S|T, ,L,4, ,( ,B, ,A,N!D, ,C,., ,N,0,T, ,A|B,1,,, ,I,F, ,X,-,0| ,T,KE,N, R,l, ,E|L,S,E, ,R,2,),;, , | , 




, 1 , 1 , 1 , 1 1 1 , , 1 , , 1 , 1 , 1 , , 1 , , 1 i , , 1 , , , , , , , , , 1 , , , 1 , , 1 , , 1 , , , , 1 1 1 1 1 1 1 1 1 1 1 , 1 1 


LilSrr, iR;EiSiUiL,TiS, 1( ,F,0,R = ,1, iS,T,E,P, ,1, ,U,N,T|ll., ,N, iRQ iHAini,"!,,, ,F,0|R, ,J|:f,1i ,SiT,EiP, 


1 1 1 I , 1 1 , 1 1 1 <i, ,u,N,T, i,L, ,Ki ,D,o ,nBini 1. 1 JiHi-i ic,nj,iin,)i;i , ■ i , , , 





11.2.7. Switch List Declaration 
11.2.7.1. Syntax 



[switch list declaration> : : = SWITCH LIST <switch list identifier> : = 
<switch list list> 

[switch list identifier> : : = <identifier> 

[switch list list> : : = <list identifier> I <switch list list>,<list identifier> 



11.2.7.2. Semantics 



A switch list declaration associates a switch list identifier with a number of 
list identifiers. Associated with each of the list identifiers is an integer 
reference which is obtained by counting the list identifiers from left to right 
starting with zerc This integer indicates the position of the list identifier in 
the switch list list. These list identifiers are referenced by means of switch 
list designators. 

If a switch list designator yields a value which is outside the range of the 
switch list list, the list so referenced is undefined. Each list identifier used 
in a switch list list must have appeared previously in a list declaration. 



11.2.7.3. Example 



10 



20 



30 



40 



I I I I I L 



SiW|l|T|C |Hi iLiliSiTi I |L|X|l|;i = |L,l|,|L|2i, |L,3|; I , , ,. 
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1L2.8. Namelist Declaration 

11.2.8.1. Syntax 

<namelist declaration> : : - NAMELIST <namelist list part> 

<namelist list paft> : : = <namelist identifier> (<namelist parameter part>)| 
<namelist list part> , <namelist identifier> (<namelist 
parameter part>) 

<namelist identifier>: : = <identifier> 

<namelist parameter part> ; : - <nameiist element> | <namelist parameter part>, 
<namelist element> 

<namelist element> : : = <simple variable> | <array identifier> | <label identifier> 

11.2.8.2. Semantics 

A namelist declaration associates a list of namelist elements with a namelist 
identifier. The namelist identifier may be used in an automatic data read 
statement for specifying that the variables to be initialized and the value to 
be read in are provided in the input file itself. 

The formats of input data records are specified under read statements 
(Section 11.3.2). A specific requirement of input data records introduced 
into the system via the DATA statement for use with the namelist declaration 
is that a space must appear in column one of every item. 

Assuming that NAMElis defined in a namelist declaration and used in a read 
statement and A,B, C, LAB, and FILEl are declared as follows: 



1 10 20 30 40 


1 1 1 1 1 1 1 1 1 IRiEiAiLi 1 |A|,{B|;| 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 




1 1. .1.,. 1 ..1. J 1 |A|R|R|A|Y 1 1 C|L 1 "1 1 : 1 5| J 1 ; 1, 1 1 i' 1 1 1 1 1 1, 1,1 1 1 111 1 1 


I -i 1 L ..l.__..i 




I 1 1 1 1 1 1 iLiAiBiEiL, |L|A|B|; | | | i i i | . i i | i i i i i i i i i I i 


1 1 1 1 1 1 


-._i__i_ 


|F,I.L,E| , i"|N, , |F,I ,L,E,1, , ,3,(,1|.,1 ,4,) ,;,,,,, | , 


1 1 1 1 1 1 


,11,1, |N,A|M, E|L, l,S|T| , |N,A,M|E,1,(,A|,,B|, 1 C|,,L,A,B|),; 1 , , 1 , 


1 1 1 1 1 1 




1 1 1 1 1 1 1 1 1 1 * 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 




1 1 1 1 1 1 1 1 1 1 ' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 I 1 1 1 




1 IRiEiAiDi , ,( |F|I ,L|E|1 1, |N,A,M|E,1 ,) ,; 1 ,,, ,,,,,, I , 


1 1 1 1 1 1 
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1st record 
2nd record 



last record 



Possible input data records of FILEl may be as follows: 



■B|A|=iJi_7L7j7j0j0|0 

HMB,= ,l^j3x4L,iPL, 



LABEL 



OPERATION 



20 



OPERAND 



30 



40 



COMMEN 

50 



±j N | A | M _lEiLl 



- I I I I I L 



_±. J L-_l.- . t . 



IJ I I L._l. .l.„ 

6jZjj..l2i. |4|/ 
„j I I I I L 



._ J X I I 

7,7,7,7,7 

I J. _..x.. J .._ 

El6j^j , 3 , . 

.. I I I I 



i_ 1 
7,. 



I I I I I I 



J I L I 

L,A|B| I 

I J.I I 
_J \ \ L 



iMiOLlLE, 



|M, I 



A, L|L, ,1 ,T,E|M,S 



i I I 

L..I J_ 
,1. i I 
J L_J_ 



1 1...L 

111 



I II 

J i_.L 



I L._l I 

J I L_J-. 



1 1.1 1 
[ i..l_.L. 
L. I 1.1 
.L....J ..J_ L 

I I I I 



L 1 .1 I L_L.L„X.„J ...1. i ..J_....l._ 

.J.__L 1. .L-.l I L..J_...l ...L...I1 I i.. 



I .L J I L_ 



.i__L, 



I I I I 



L. _1. J_. J 1 1.._J._. L 

±...i._..L _)..._.! .._L__L..J,_ 



A_._l._i. 



M ,U I S J , J H I Aj V 1 Ej J /S J $1 P,A,C, E| , I , N, .C, , L, U, M, N| ,1, 



_i__i_L L._i.. 





J L_J L 



—i i___L._i.._J L.J I L._ 

-..-I L X_.l...l J_..J L._l_. 

— 1 I l_...i^.l I L,-....i..J._ 

_l L_l i_..J J L__J l.^ 



J I L 



J L 



The above example would cause records from FILEl to be read into variables 
A, B and array C. Upon executing the last record, indicated by the slash(/), 
program control will transfer to the indicated label, LAB. 



11.2.8.3. Restrictions 



II The first input data record must be the namelist identifier which is reiferenced 
by the read statement. 

II All variable identifiers and label identifiers used in the input data records 
must have been defined previously in a namelist declaration. 

II If a label identifier is used in the input data record, it must appear in the 
last record and immediately follow the symbol / (slash). A single space 
following the symbol / indicates that there is no label following. 



11.2.8.4. Example 



OPERATION 



COMMENTS 

50 



^i l^.L_.L L.._.L.I..l 1. L.i... I I I 

_J L_.J L.. L .1.- I 1 1 1 1 I I I 



I. .1 1 . J. I .1 I .1 .1. 1...L. 
I , . , I I < . , I i 



..!_.. L..1„.J I L 



J_l 1 I 1-. 1. -L J 1 1 l._.L.l. I I. I 1 I .1 .1. .1 I 

1 1. I I .1 J i I I 1 1- J. .-L__i_. L . L_.l. I I I L__L. 



_L_J I l..._l_J 



_.lNlAI.MiEi Li I.iS I Ti , 1 N.AIM, E, 1 , ,( |Au_,B, , |C|., .LlA, B,) ,, , ,N,A,M|E|.2_i( iAi.i.L.L.LA,BiLi IJ _, 1 CL,j.Fi,..LDi^i_LiAiHL2L).L;. 
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11.2.9. Line Declaration 
11.2.9,1. Syntax 



<line declaration>: : = LINE <file identifier>( <paper size>, <channel 
specification>) <heading control> 

<paper size> : : ^<unsigned integer> 

<channel specification> : : =<channel number> : <line number> | <channel 
specification>, <channel number> : <line number> 

<channel nuniber> : : =:<unsigned integer> 

<line number> : :=<unsigned integer> 

<heading control> : : = [ NO] | [ NO ,<heading>] | [<heading>] | <empty> 

<heading> : ; = <string> 



11.2.9.2. Semantics 



The line declaration is used in conjunction with iile declarations. The tile 
identifier so referenced in the line declaration must be a print file. The 
UNIVAC 1108 high speed printer does not use the paper loop mechanism to 
control carriage return and spacing of a line printer. Form control and spacing 
is completely variable and controlled entirely by program. In UNIVAC 1108 
Extended ALGOL, the line declaration is used to describe print filfes. The 
form, number of lines per page, and the channel number associated with a 
specific line number are specified by the line declaration. 



11.2.9.2.1 Paper Size 



The length of the printer form is expressed as paper size. Paper size 
specifies number of lines per page. Standard paper size is 66 lines per page. 



11.2.9.2.2 Channel Number 



Channel numbers referenced the channels on printer control tapes. 
Channel numbers are used in conjunction with line numbers to give an associated 
reference number and line number which is to be spaced to when utilized in a 
write statement. All channel numbers must be defined in the line declaration to 
describe the channel number and its associated line number prior to being 
referenced by a write statement. A maximum of eleven channel numbers with an 
associated line number for each may be specified. 

For example, channel 1 is the 'home paper' channel. If skip to channel 1 is used 
in a write statement, it causes a 'page eject' to the line specified in its associa- 
ted /i/ie number specification. 
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11.2.9.2.3 Heading Control 



Heading control indicates whether or not a heading is to be printed on each 
new page. 

(1) If heading control is empty, it causes the current date and page number to be 
printed on each page by EXEC 8. 

(2) If NO is used, it will not print the EXEC 8 date and page number on each 
page. Therefore, if a line declaration with a NO specified does not appear 
the EXEC 8 date and page number will always be printed on every page. 

(3) If only heading is used, the string in the tine declaration will be printed 
with the EXEC 8 date and page number appearing on each page. 

(4) If NO and heading are used, only the string in the line declaration will be 
printed out and no EXEC 8 date or page number will be printed. 



11.2.9.3. Restriction 



1) The file identifier used in a line declaration must have appeared previously 
in a prevailing file declaration. 

2) In the absence of a line declaration, standard UNI VAC 1108 print page 
definition will be assumed. Standard UNIVAC 1108 printer page definition 
is 66 lines per page, with a top margin setting of 6 lines and a bottom 
margin setting of 3 lines, thus giving 57 printable lines. 

3) Each channel number declared in a line declaration must be associated 
with only one line number. 

4) Channel number can only be 1 through 11. 



11.2.9.4. Example 
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The above example declares that the form is 66 lines per page; and it will be 
positioned to line 6 before printing begins. Each skip to channel 1 in a write 
statement causes the paper to be ejected and repositioned to line 6 of the new 
page. Channel 6 will be associated with line 11, and channel 10 with line 60. 
Since no heading control is specified, the EXEC 8 date and page number will 
be printed on each page. 
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11.3. STATEMENTS 

11.3.1. General 

Each particular //O statement will be discussed separately in succeeding sections. 

11.3.1.1. Syntax 

<I/0 statement>: : = <read statement> | < write statement> | <space statement> | 
<rewind statement> | <close statement> | <lock statement> 

11.3.1.2. Semantics 

i/0 statements cause values to be communicated to and from a program and 
provide programmatic control of files and I/O units, 

11.3.2. Read Statement 

11,3.2.1. Syntax 

<read statement>: : = READ <direction> (<input parameters>) <action label> 

<direction>: : =<empty> I REVERSE 

<input parameters>: : = <file part> <buffer release> | <file part> 

<buffer release>, <format and list part>| 
<file part> <buffer release>, <free field part>| 
<array row>, <format and list part> ] <array row>, 
<free field part> 

<file part> : : = <file identifier> | <switch file designator> 

<buffer release> : : = <empty> | [ NO ] ] <record address and release part> 

<record address and release part> : : = [ <address>] | [ NO] | <empty> 

<address> : : =<arithmetic expression> 

<format and list part> : : =:<format part> | <format part>,<list>| 

<format part>, <list part> ] *, <list>| 
*,<list part> I <alpha array identifier>, 
<list>| <alpha array identifier>, <list 
part> I <arithmetic expression> , <array row> | 
<namelist identifier > 

<free field part> : : =/, <list> | /, <list identifier> 

<format part>: :=<format identifier> | <switch format designator> 

<list part> : : =<list identifier> | <switch list designator> 

<action label> : : = [^<end of file label> : <parity label> ]] | [I<end of file 
label>I]| [j <parity label>I] | <empty> 

<end of file iabel> : : =<label identifier> 

<parity label> : : <label identifier> 
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11.3.2.2. Semantics 



The read statement causes values to be assigned to program variables and/or 
places information in strings defined in the iormat declaration. 

■ Direction 

REVERSE is used to specify the reading of magnetic tape or drums in the 
reverse direction. Otherwise this field is empty. 

For drum files the use of REVERSE causes adjustment so that the value of 
the record pointer is decreased by one from its designated setting before the 
read is performed. If the value of the record pointer is N when a read reverse 
is executed, the record pointer is set to N-1 before the read is performed. At the 
completion of the read reverse, the record pointer remains at N-1. 

■ File part 

This field specifies which file is to be read. If array row is used instead of 
the iile part, it indicates an Edit and Move read statement. 

■ Butter release 

The butter release indicates whether the input buffer ip to be refilled after it 
has been read and edited. If [INOZI is used the buffer will not be filled and the 
current buffer is the next one to be accessed. 

■ Record address and release part 

This field applies only to drum files. The address specifies the relative 
address of the record in the file to be read and is edited as specified in the 
read statement. The record pointer is set to the address before the read is 
executed. The record pointer will not be adjusted after the read is executed. 
An address must be used with files declared RANDOM. If ENOU is not used 
and address is not specified, the record read will be the current one pointed 
at by the record pointer. After the read, the record pointer will be adjusted to 
point to the next record. If CNOZI is used, the record read will be the current 
one pointed to by the record pointer. After the read, the record pointer will not 
be adjusted, i.e., the record pointer will be the same one as before the read 
was executed. 



Format and list part 

The format and list part specifies the action to be taken on input data. If no 
format and list part is given, one logical record will be passed without being 
read. Such a statement acts as a space statement which only spaces one 
record. 
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A format identifier alone indicates that the referenced format declaration con- 
tains a string into which corresponding characters of the input data are to be 
placed, i.e., replace the string in the format declaration with the string in the 
data. The referenced format declaration must only contain one string. 

A format indentifier together with a list or list identifier designates that the 
input data is to be edited according to the specifications of the referenced 
format declaration and assigned to the variables of the referenced list. 

The asterisk, *, together with a list or list identifier specifies that the input 
data is to be processed at word length and that it is to be assigned to the 
variables of the referenced list without being edited. The number of words 
read is determined by the number of variables in the list or the buffer size, 
whichever is smaller. 

The arithmetic expression with an array row specifies that input data is to be 
processed at word length and that it is to be assigned to the elements of the 
designated array row without being edited. The number of words read is deter- 
mined by the number of elements in the array row, the buffer size, or the value 
of the arithmetic expression, whichever is smallest. 

The alpha array identifier together with a list or list identifier specifies that 
the input data is to be edited according to the calculated format specification 
stored at the referenced alpha array at execution time and is assigned to the 
variables of the referenced list. The calculated format must be placed in a one 
dimensional alpha array prior to execution of the read statement. 

The namelist identifier indicates an automatic data read statement. The list 
information is provided by the referenced namelist declaration and also is 
provided in the input file itself. The format information is provided in the 
input file. Input data records are defined as follows: 

(1) The first character in each data record is always ignored. The first record 
of a group of data records to be read must be the namelist identifier which 
is declared in the referenced namelist declaration. This identifier is 
followed by the data items. 

(2) The data items must have the following form: 

variable element = DATA WORD 

They are defined as follows: 

<namelist element> : : =<simple variable> | <array identifier> | <label> 
<DATA WORD> : : =<value list> 



<value tist> : : =<initial value>, | <value list>, <initial value>, 

<initial value> : : = <number> | <string> | % <octal number> 

(3) Any selected set of the variables or array identifiers belonging to the 

namelist parameter part of the namelist identifier which appear on the first 
record may be used in the manner specified by the above data item. 
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(4) The end of a group of data records is signaled by a slash (/) instead of a 
comma. A label appearing immediately following a slash, i.e., /LABI, 
will cause a program transfer to the specified label, LABI, which must 
be specified in the namelist declaration. A slash followed by a space in- 
dicates that no label is specified. The program will transfer to the state- 
ment immediately following the read statement after the read is executed. 
See namelist declaration, Section 11.2.8.2, for examples. 

■ Free field part 

When the free field part is used, no format declaration is required to provide 
the editing specifications for data. Editing specifications are determined by 
the format of the data. Data must be formatted as described under FREE 
FIELD INPUT, Section 11.3.3. 

■ Action labels 

The action labels provide a means of transferring control from a read statement 
(or space statement) when an end-of-file condition or parity condition occurs. 

An end-of-file condition occurs for drum files whenever an attempt is made to 
read a record whose address us greater than that of the EOF indicator. The 
EOF indicator is always set to the address of the highest addressed record 
written in the file. 

■ Edit and Move 

An array row may be used in a read statement instead of a file part. It provides 
the means of utilizing the editing features of a read without using I/O files and 
buffer areas. In effect, the array row designated in the read statement is anal- 
ogous to a buffer area. 

m When a read st6itement is executed without specifying an input file, data in the 
designated array row is edited and placed in the list. The format part determines 
what editing is to take place as the data is moved from the array row to the list. 



11.3.2.3. Restrictions 



When a parity error occurs in reading from tape the redundant record is left in 
the buffer. 



■ Tape files must be closed before changing directions when the tape is posi- 
tioned following an end-of-file. 

■ Labels and variables used in an input file for a namelist data read statement 
must be declared by a namelist declaration in the block in which the read 
statement appears or be global to it. 
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11.3.3. Free-Field Input 
11.3.3.1. Syntax 



<free field sentence> : : = <fie.ld> <field delimiter> | <free field sentence> 

<field> <field delimiter> 
<field> : : = <number> | <string> | % <octal number> | / | <empty> 

<field delimiter> : : = , | <letter> <any proper string not containing a comma>, 



11.3.3.2. Semantics 



All free-field input is in the form oi free-field sentences. Each field in a 
sentence is associated with the list element to which it corresponds according 
to position. A free-field sentence is not affected by the end of a record. A field, 
or field delimiter, may be carried over from one record to another. Continuation 
from record to record is automatic, until the list is exhausted; unused characters 
(if any) on the last record read are lost. All blanks in free-field sentences, 
except those in strings, are completely ignored. Fields are handled as follows: 

■ Numbers 

Numbers which either are represented in integer form or contain a decimal 
fraction and/or exponent part are converted to integer, real, double or 
complex according to the type of the variables in the list, respectively. Two 
real numbers are required for each complex variable. 

■ String 

Strings may be any length. Each list element receives six characters until 
either the list or the string is exhausted. The string characters are stored 
left-justified with space fill on the right in the list elements. Strings are 
enclosed in the string bracket character, i.e. '. In order to read an apostro- 
phe or a quote within a string, two string bracket characters must appear in 
succession to represent one in the input record. 

■ Eiiip ty 

An empty field causes the corresponding list element to be ignored. 

■ Slash (/) 

The slash (/) field causes the remainder of the current record to be ignored. 
The record following the slash is considered the beginning of a new field; 
therefore the slash field does not require a field delimiter. (The slash field 
is unique in this regard.) A slash field has no effect on list elements. 

■ Logical Values 

For free-field input, the integer value 1 (one) and (zero) represent the logical 
values TRUE and FALSE respectively. 
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11.3.3.3. Restriction 

Free-field input may not be used with blocked tape records. 

11.3.3.4. Examples 

Consider each of the following lines as individual records, 

1 

2 

3 



29 



+ 1 23 . @ + 
29 



+ .123@29 

, 0, X, Al , 4 A 5 B, / CARD 124 

15 IGNORED, ZERO, 

% 177, %30, 'THIS IS A STRING', 'DON"T',' 

STRING' , , , , 

If the above records (free field sentence) were read with the statement 



10 



20 



30 



40 



50 



j__.i 



-I l-_L_Lj.^i-.J._J_„.I,-l- J I .J..^_lJI l_a^-J I L..J L_^L__L^.J J^^X^J I, J 1 ..J.__J I I L_J L._1.„_J Ll,_..,L._.i. I . I. _ J 1,1^ 



where A was declared as an array of type real, values would be assigned to 
A as follows: 



A [0] = 123(929 

A [1] - 123@29 

A [2] . - .123@29 

A [31=: 

A [4] ~= Unchanged 

A [5] . = Unchanged 



A [6] .== 4.0 

A [71 = 15.0 

A [81 - Unchanged 

A [91 ^- 177 (octal) 

A [101 - 30 (octal) 

A [111 = THISI^I 
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A [15] - STRING 
A [16].= Unchanged 



A [12] .= SMJiST 
A [13] . = RINGt^t/ 
A [14] . = DON'Tt^ 
11.3.4. Write Statement 

11.3.4.1. Syntax 

<write statement> : : = WRITE(<output parameters>)<waction label> 

<output parameters> : : =<file part> <carriage control> | <file part> 

<carriage control>, <wformat and list part>| 
<file part> | <array row>, <wformat and list part> 

<file part> : : = <fi].e identifier> | <switch file designator> 

<carriage control> : : = [PAGE] | <skip to channel> | [DBL] | [NO] | <record 

address part> | <empty> 

<record address part> : := [<address>]|<empty> 

<address> : : = <arithmetic expression> 

<skip to channel> : : = [orithmetic expression>] 

<waction label> : : = [<end of reel label> : <parity label>] | [:<parity 
label>] I [end of reel label>] | <empty> 

<parity label> : : =: <label identifier> 

<end of reel label> : : = <label identifier> 

<wformat and list part> : : = <format part> | <format part>, <list> | 

<format part>, <list part> | * , <list> | 
* , <list part> I <arithmetic expression> , 
<array row> | <alpha array identifier> , 
<list> I <:alpha array identifier> , <list pairt> 

<format part> : : = <format identifier> |-<switch format designator> 

<list part> : : = <list identifier> | <switch list designator> 

11.3.4.2. Semantics 

■ File part 

The file part specifies the file to be used. If an array row is used instead of 
the file part, it indicates that it is an Edit and Move write statement. 
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Carriage control 

The carriage control allows for paper control on the line printer. Carriage 
control is irrelevant and ignored on all other units except the record address 
part which applies only to drum files. PAGE causes the printer to skip to the 
next page after the line is printed. Skip to channel causes the printer to skip 
to the channel indicated by the value of the arithmetic expression after each 
line of print. The arithmetic expression should have a value from 1 through 11. 
If the arithmetic expression yields a value other than integer, it will be rounded 
to type integer in accordance with the rules applicable to the evaluation of 
subscripts. If skip to channel is used, the channel number and its correspond- 
ing line number must be defined in the line declaration which follows the file 
declaration. 

DBL causes the line printer to double space after the line is printed. NO 
causes the printer to suppress spacing after the line is printed. 

W format and list part 

The wformat and list part specifies the action to be taken on output data. A 
format identifier alone indicates that the referenced format declaration con- 
tains one or more strings which constitutes the entire output. 

A format identifier together with a list or list identifier designates that 
variables in the list are to be formatted according to the specifications of the 
format declaration and written as output. 

The asterisk, *, together with a list or list identifier, specifies that the 
variables in the list are to be processed at word length and are to be written 
as output without being edited. The number of words written is determined by 
the number of variables in the list or the maximum record length, whichever is 
smaller. When unblocked records are being used, the maximum record length is 
the buffer size. 

The arithmetic expression with an array row specifies that the elements of 
the array row are to be processed at word length and are to be written as 
output without being edited. The number of words written is determined by the 
number of elements in the array row, the maximum record length, or the value 
of the arithmetic expression, whichever is smallest. When unblocked records 
are used the maximum record length is the buffer size. 

The alpha array identifier, when used in a write statement followed by the 
list part, provides a means of calculating a format at execution time. The 
calculated format piust be placed in the one dimensional alpha array prior to 
execution of the write statement. 



The record address part applies only to drum files and specifies the relative 
address of the record to be edited and written. If address is provided, the 
record pointer is set to address before the write statement is executed. If 
the record address part is empty, the record pointer is used as it was left by 
the previous I/O statement. For RANDOM files, the address must be provided. 
After a write statement is executed, the record pointer will be adjusted to the 
record following the last record written. 
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If only the file part and record address part are provided in a write statement 
referencing a drum file, the contents of the current buffer are written. 

■ Edit and Move 

In a write statement, an array row may be used instead of file party this indi- 
cates an Edit and Move write statement. When an Edit and Move write is 
executed, data from the list is edited and placed into the designated array 
row. The data is edited as specified by the format part as it is moved from the 
list to the array row. In effect, the array row designated is used as a buffer 
area for writing a record. 

■ Waction labels 

Waction labels provide a means of transferring control from a write statement 
when an end of reel condition or a parity condition occurs. 

11.3.4.3. Restrictions 

■ Writing of mixed mode tapes is not possible. 

■ When a parity error occurs in writing a tape, the redundant record is left in 
the buffer. 

■ If a parity error occurs and the label is not present, the program terminates. 

■ If an end of reel occurs and the label is not present the program continues; 
the record is not written. 

11.3.4.4. Examples 



LABl-L OPERATION OPERAND COMMENTS 

1 10 20 30 40 50 60 


W,R,I|T,E, ,(,F,I,L,E,I,D|,,F,M,T,,,L,I,S,T,I|D,),;, ,,,,,, | 1 , , , , , , 




W,R,I|T,E, ,(,F,I,LE,I,D, ,L,P,A,G,E,D,) ,; , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 


, ,W,R,I|T,E, ,(,F,I,L,E,I,D|,,F,M,T,),; , , 




W,R,I|T,E, ,(,F,I,L,E,I,D|,,*,.,L,I,S,T,I,D,)| C = , P, A, R,3; , , 1 , , , , , , , , , , , 




,W,R,I|T,E, |(,F,I,L,E,I ,D| r,D, B, LJ, . ,F,M,T| . ,A, . ,B, . ,C,, , A, R, A£,6,:],) ,; | 1 , , , , , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


, ,W,(^I|T,E, ,{,F,l,L,E,l,D|,,X,+,Y,-,Z,.,A,R,A|3,[:,1,,,l,,,*,:i),;l < i < , i , , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


W,R,I|T,E, ,( ,F,I,L,E,IP|),; | , | 




,,,,,, ,W,[^ 1|T,E, ,(,F,L,E,CX,+|2a,,F,T,,,L,S,T,)| ,CE,0,F,3;, , | 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


W,R,I|T,E, ,(,F,I,L,E,I,D|.,1,0,,,A,G*J,),;| , , 1 , , , 




W,R,I|T,E, ,(,F,I,L,E,,I,D|,,F,R,M,T,,,L,S,T,)| .C E, 0, F, : ,P,A,R J ,; | 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 . 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


,,,,,, ,W,R,I|T,E, ,(,F,l,L,E,l,D|,,F,M,T,.,F,0,R, ,l|: , = ,1, ,S,T,E,P, ,1 | ,U,N,T,I,L, ,1,0,0| , D, 0, , A, R, aT, 1 H , ,A, , , B, ) , ; , 




W,I^I|T,E, ,{,A,[:,*J.,F|M,T, .,L,S,T,),;, , | , , , , , 1 ,,,,,,,,, 1 ,,,,, , 




W,R,I|T,E, ,(,F,I^,E,I ,Di.,A,L*J,.,L,S,T,)|;, , , , | , 
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11.3.5. Space Statement 
11.3.5.1. Syntax 



<space statement> : := SPACE (<file part> , <number of records> ) <action 

label> 

<number of records> : : ^ <arithmetic expression> 

<file part> : : ^ <file identifier> | <switch file designator> 

<action label> : 



[<end of file label> : <parity label>] 

[<end of file label>] | [ : <parity label>] | <empty> 



11.3.5.2. Semantics 



The space statement is used to bypass input logical records without reading 
them. 

The value of the arithmetic expression determines the number of records to be 
spaced and the direction of the spacing. If the expression is positive, the 
icecords are spaced in a forward direction; if negative, in the reverse direction. 

For drum file, the space statement is used to adjust the value of the record 
pointer; i.e., the value of number of records is added to the current record 
pointer. 



11.3.5.3. Examples 



1 10 20 30 40 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 , 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


S,P,A|C,E, ,(,F,I,L,E,I,D|,,5,), C ,L,E ,0,N,F| : ,L,P,A,R J,; , , , | ■ 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1. 1 1 1 1 1. 1 1 1 L .1 1 1 1 1 


, , , , , ,.,S,PA|C,E, ,(|F,I ,L,E,!,D|,,-,3,) , ,[:iL,E,0,F| : ,L,P,A. R J, ; , , , | , , , , , , , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 '1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 L 1 1 1 1 


,,,,,, ,S,PAIC,E, ,(,F,I,L,E,I,D|,,A,+,B,-,C,),; .i i i , , , 1 , i i , i , , , 
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11.3.6. Close Statements 

11.3.6.1. Syntax 

<close statement> : : = CLOSE (<file part> , RELEASE) | CLOSE (<file part> , 

SAVE) I CLOSE (<file part> ,*) | CLOSE (<file part> , 
PURGE ) I CLOSE(<file part>) 

11.3.6.2. Semantics 

The close statement causes the referenced file to be closed. 

The following actions take place: 

■ On a card output file, a card containing an ending label is punched. 

■ On a line printer file, the printer is skipped to the next page, an ending label 
is printed, and the printer is again skipped to the next page. 

■ On a tape output file, the end of file mark is written after the last block on 
tape. 

■ On a drum file, the buffer areas reserved for the file are returned and if the 
specified file is a temporary file, the drum space for the file is returned. 

If RELEASE is used, the I/O unit is released to the system. If the file is 
a tape file, the tape is rewound. 

If SAVE is used, the I/O unit is released to the system, but the unit 
requirement of the program is not reduced. If the file is a tape file, the tape 
is rewound. 

If PURGE is used, the permanent file is closed, decatalogued, and released 
to the system. 

If the asterisk symbol, *, is used, the file must be a tape file or drum file. 
The I/O unit remains under program control, and if a tape file, the tape is not 
rewound. This construct is used to create multi-file reels. 

When the asterisk symbol, *, is used on multi-file input tapes, the following 
action takes place: 

■ If the last reference to the file was a forward read statement or a forward 
space statement and a CLOSE (file part,*) is executed, the tape is positioned 
forward to the label of the succeeding file, if any. 

■ If the last reference to the file was a reverse read statement or a reverse 
space statement and a CLOSE(file part,*) is executed, the tape is positioned 
to a point just in front of the beginning label for the file. 

■ If the CLOSE (file part,*) is executed after the end-of-file label branch has 
been taken, no action is performed to position the file. 
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When the CLOSE (<fiie part> ,*) is used on a single-file reel, the action taken is 
the same as for a multi-file reel. The next reference to this file must be a read 
statement in the opposite direction from that of the prior read on the file. 

When the CLOSE (<file part>) is used, it applies only to a random access 
drum file. 

All file buffer areas are released as a result of all close statements being 
executed except CLQSE (<file part> ,*). 



11.3.6.3. Examples 



1 10 20 30 40 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 . 1 1 1 1 .1.. 


, |C,L,0,S,E, ,(,F,I,L|E,I,D,,,R,E,L,E|A,S|E,) ,;, , , , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 .1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


, 1 , |C,L,0,S,E, ,( ,F,I ,L|E,I ,D|, |S,A,V,E,) i;l ,,,,,, i,i 1 , r , i i i i : 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 .L 1 1 1 L.. 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 ! 1 II 


1 1 1 1 1 1 1 1 1 1 .1. t 1 1 1 1 1 1 1 i 1 ,,1,. 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 


, |C,L,0,S,E| ,(,F,I.L|E,I,D,, , ,*,),;, , | , , , , , , 


1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 [ 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 > 1 1 1 1 1 > 1 1 1 1 1 • 1 1 1 1 1 1 1 1 1 I 1 1 1 1 , i 


,1,11,,,, |C|L|0|S,E| ,( |F| 1 |L|E,I ,D,, ,P,U|R,G,E|)|; 1 , , , , , , , i | , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 , 1 1 1 1 < 1 , 1 1 1 , 1 1 1 < < > 1 1 1 , , 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 .1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ,1 , 1 , 1 1 1 1 1 1 1 r I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 


,,,,,,11, ICLiOiS.E, ,( ,F|I ,L|E,I ,Di) ,; , < , i , 1 , i 1 i i i i i > > i 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 r 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
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11.3.7. Ftewind Statement 

11.3.7.1. Syntax 

<rewind statement> : : = REWIND (<file part>) 

<file part> : : = <file identifier> | <switch file designator> 

11.3.7.2. Semantics 

The rewind statement is used only in reference to tape files and drum files. For 
tape files, it causes the referenced file to be closed and the tape to be rewound. 
The I/O unit remains under program control. 

For drum files the rewind statement causes the record pointer to be set to the 
address of the first record in the file, 

11.3.7.3. Restriction 

On paper tape files, the rewind statement may be used only on input. 

11.3.7.4. Example 



10 



20 



30 



40 



J I I i I I I I L 



J I I 1 L 



1_J L 



_L_I L_J l_ 



I I I 



.-J.„J., !___! J. L_.1.,..,±^_J I J l_J I I I I I l._ 

.. L .„i.. .. i_ ,_ i _.i -^ L J . . J . _. J ... ..L- _l _ . -.L... .J i I L-J \ l-_ 

|R|E|W|I |N|D| | (|F| l|L|E| l |D|) I ; I i i i | i i i i i i i i i 



J Li I I 1 L. ^ 



J I I I L^L_.i- J__a^ 



J I 1 I I I I L 

J I I I I I I L 



11.3.8. Lock Statement 

11.3.8.1. Syntax 

<lock statement> 

11.3.8.2. Semantics 



= LOCK«file part>, RELEASE) | LOCK(<file part;>, 
SAVE) I LOCK (<file part>) 



The lock statement is used only in reference to tape files or drum files. For 
tape files it causes the referenced file to be closed, the tape to be rev/ound, an 
end of file to be written if output, and an operator message to be printed in- 
structing the operator to remove the reel and save it. If RELEASE is used, the 
I/O unit is released to the system after a new reel is made ready, and the unit 
requirement is relie'ved. If SAVE is used, the I/O unit is released to the system 
after a new reel is made ready, but the unit requirement is not relieved. The 
RELEASE or SAVE must be used for tape files to indicate whether the I/O unit 
requirement is relieved or not. 
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For drum files all lock statements cause similar actions. These are as follows; 

(1) A temporary file declared SERIAL or RANDOM is made permanent, 
catalogued. 

(2) The buffer areas reserved for the file are returned. 
11.3.8.3. Examples 



1 10 20 30 40 


, , , , |L,0,C,K, ,( ,F,I,L,E|I ,D„,R,E,L,E,A,S,E|),; , , , | , , , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


,,,,.,,,, |L,0,C,K, ,(,F,I ,L,E|I ,D,,,S,A,V,E,),; , | ,,,,,,,, , 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 / 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


.,,,,,,,,, |L,0,C|K,(,F,l ,L,E,I ID,) ,; , , ■ , 1 , i i , i , i i 





11.4. I/O SWITCH DESIGNATORS 

11.4.1. General 

Each particular I/O switch designator will be discussed separately in 
succeeding sections. 

11.4.1.1. Syntax 

<I/0 switch designator >: : = <switch file designator> j <switch format 
designator> | <switch list designator> 

11.4.1.2. Semantics 

I/O switch designators are used in I/O statements in the same manner as file 
identifiers, format identifiers, and list identifiers. 

11.4.2. Switch File Designator 

11.4.2.1. Syntax 

<switch file designator> : : = <switch file identifier> [<subscript expression>] 
<switch file identifier> :: = <identifier> 
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11.4.2.2. Semantics 



Switch file designators are used in I/O statements in the same fashion as file 
identifiers, 

A switch file designator is used in conjunction with the switch file declaration 
specified by the switch file identifier. The value of the subscript expression 
determines which file identifier in the related switch file list is to be selected 
for use in the I/O statement. The value of the subscript expression must cor- 
respond to the position of the file identifiers in the switch file list. The values 
of these positions start with zero. If the value of the expression is other than 
integer, it will be converted to an integer in accordance with the rules applicable 
to subscript expressions. 

If a switch file identifier is used as a parameter in a procedure, it must be 
indicated in the specification part of the procedure. The specifier used to indicate 
this is SWITCH FILE. The actual parameter which corresponds to such a formal 
parameter must be a switch file identifier. 

If a switch file designator is used as an actual parameter to a procedure, the 
corresponding formal parameter must appear in the specification part preceded by 
the specifier, FILE- 



11.4.2.3. Restrictions 



The value of the subscript expression should correspond to the position of one of 
the file identifiers in the switch file list. If the value of the expression is outside 
the range of the switch file list, the file so referenced in the I/O statement 
is undefined. 



11.4.2.4. Examples 
SWHF CG 

SWFILE DF X>N THEN ELSE C 

FISW DNTEGER (X<N)n 

11.4.3. Switch Format Designator 

11.4.3.1. Syntax 

<switch format designator> : := <switch format identifier> [<subscript 

expression>^ 

<switch format identifier> : : = <identifier> 
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11.4.3.2. Semantics 



Switch format designators are used in 7/0 statements in the same fashion as are 
format identifiers, 

A switch format designator is used in conjunction with the switch format 

Switch format designators are used in I/O statements in the same fashion as are 
format identifiers. 



A switch format designator is used in conjunction with the switch format 
declaration specified by the switch format identifier. The value of the subscript 
expression determines which editing specification part in the related switch 
format list is to be selected for use in the I/O statement. The value of the 
subscript expression must correspond to the position of one of the specification 
parts in the switch format list. The values of these positions start with zero. If 
the value of the expression is other than integer, it will be converted to integer 
in accordance with the rules applicable to subscript expressions. 

If a switch format identifier is used as a formal parameter in a procedure, the 
specifier used to indicate this is SWITCH FORMAT. The actual parameter which 
corresponds to such a formal parameter must be a switch format identifier. 

If a switch format designator is used as an actual parameter to a procedure, the 
corresponding formal parameter must appear in the specification part preceded by 
the specifier, FORMAT. 

Restrictions: 

1. The value of the subscript expression should correspond to the position of 
one of the editing specification parts in the switch format list. If the value 
of the expression is outside of the range of the switch format list, the editing 
specification so designated in the I/O statement is undefined. 

11.4.3.3. Examples 

SFHFT CIF X<N THEN O ELSE Nj 

11.4.4. Switch List Designator 

11.4.4.1. Syntax 

<switch list designator> ; : = <switch list identifier> [<subscript expression>]] 

<switch list identifier> ; : = <identifier> 
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11.4.4.2. Semantics 

Switch list designators are used in I/O statements in the same fashion as list 
identifiers. A switch list designator is used in conjunction with the switch list 
declaration specified by the switch list identifier. 

The value of the subscript expression determines which list identifier will be 
used from the switch list. The value of the subscript expression must correspond 
to the position of one of the list identifiers in the switch list. The values of 
these positions start with zero. If the value of the expression is other than 
integer, it will be converted in accordance with the rules applicable to subscript 
expressions. If a switch list identifier is used as a formal parameter in a pro- 
cedure, the specifier used to indicate this is SWITCH LIST. The actual param- 
eter which corresponds to such a formal parameter must be a switch list identifier. 
If a switch list designator is used as an actual parameter to a procedure, the 
corresponding formal parameter must appear in the specification part preceded 
by the specifier, LIST. 

Restrictions: 

1. The value of the subscript expression should correspond to the position of 
one of the list identifiers in the switch list list; otherwise, the list so 
referenced in the I/O statement is undefined. 

11.4.4.3. Examples 
SWLIST CO 

SLST CIF A>B THEN O ELSE I + 1 J 
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12. ACTIVITY CONTROL 



12.1. ACTIVITY STATEMENTS 



12.1.1. Syntax 



<activity statement> : : = <execute statement> | <wait statement> | <delete 

statement> 1 <event statement> 



12.1.2. Semantics 



12.1.2.1. Synchronous and Asynchronous Processing 



Normally, when the object code produced by the compiler is executed, it is 
regarded as one activity by the executive system. The program is executed 
serially following the logic of the source statements. This is synchronous 
processing. 

A program can be structured so that serial execution of all parts is not necessary; 
it can be written as several independent parts which do not depend on each 
other iand which can be executed in parallel. This is asynchronous processing. 
Activity statements allow programs to take advantage of this independent 
structure by calling procedures for processing in parallel with the main program, t 

The following diagrams depict the difference between synchronous and 
asynchronous processing. 

Figure 1 shows synchronous processing; the statements are executed serially in 
time. One statement is processed only when all those preceding it have been 
processed. 



© 



S ) represents an ALGOL statement. 

Figure 12— h Synchronous Processing 
t For discussion purposes the main program will be treated as any other activity. 
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Figure 2 shows asynchronous processing. When an execute statement (E) is 
encountered an independent activity is begun. The set of statements on each 
line is then scheduled with the executive system for simultaneous execution. 



® ©. 

6 7 

^<s) © 

^10 11 

_-©--©. 



1 1Y2 

9 



V c> 



12 



13 14 



time- 



S : ALGOL statements other than activity statements, 
E : execute statements 

Figure 12—2. Asynchronous Processing 



«: 



■d) 



15 



12.1.2.2. Synchronization of Asynchronous Activities 

In order to synchronize two or more activities (e.g., when the individual results 
of several activities are to be printed in a single report), an activity may 'wait' 
until another, or several other, activities have completed. 

- - <£{ ^^--© ©2""®3 ^-®f~©5 (activity A) 



(bf®r-(^---'®,--®r®9 



©■©-©— ©--©—©--© 



(activity B) 



6 (activity C) 



time — ^r 

S : ALGOL statements other.than activity statements 

E : execute statements 

W : wait statements 

Figure T2—3. Synchronization of Asynchronous Activities 
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In Figure 3, three activities are diagrammed (A, B, C). At statement Wj^ 
activity A waits upon B. At W2 B waits upon C. 

Activity A will not proceed past W. until B completes. B will not complete 
until C completes, because at W2 activity B waits upon C. Therefore, at the 
time statement S5 is encountered, the entire process is again synchronous, and 
all statements following S5 are processed serially (until another EXECUTE 
is encountered). 



12.1.2.3. Task Variables 



A task is composed of one or more activities, allowing the programmer to treat 
related activities as a unit. Tasks are formed by giving a task variable as a 
parameter to the execute statement. Since task variables carry information 
necessary to communicate with the executive system, they must be given when 
it is desired to delete ' or synchronize tasks. 

12.1.2.4. Event Variables 

An event variable represents a sub-activity, and has two states, set and cleared. 
The state of an even^ variable is program controlled by use of the event statements, 
SET and CLEAR. 

An event variable can be used to synchronize processing at the sub-activity level 
(using the ewait statement). The state of an event variable may be tested by the 
intrinsic Boolean function ETEST (Table 3.1, Section 3.2.2.2.) which yields a 
TRUE value if the variable is set. At block entry, all event variables are 
initially cleared. 

12.2. EXECUTE STATEMENT 

12.2.1. Syntax 

<execute statement> : := EXECUTE (<task specification>) 

<task specification> : : = <procedure call> | <procedure call> , <task variable> 
<task variable> : : = <variable> 

12.2.2. Semantics 

The execute statement allows programs to multi-process by calling procedures which 
will be processed simultaneously with th.e calling block. Each procedure is regis- 
tered with the executive as an independent activity, using the Executive function, 
FORK$. 

In an execute statement, if a task variable is given the procedure call is associated 
with that variable. If no task variable is given, the procedure call is not associated 
with any task. 



' See special cases of the delete statement for exceptions. 
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An activity is terminated in any of the following ways: 

(1) it reaches the final END of the procedure; 

(2) it tries to complete a goto statement to a non-local label; 

(3) it generates an unrecoverable run time error (e.g., subscript out of range; 
improper format, etc.), 

(4) a delete statement is encountered naming the procedure's associated 
task variable. 

In order to wait upon or delete a particular activity, a task variable must be given 
in the execute statement, which causes the executive to assign the activity an 
identity. There is a limit (36) to the number of activities with an identity which a 
program may have executing simultaneously. If this limit is exceeded, ALGOL 
will wait until an identified activity terminates and reuse that identity. The 
programmer need not be aware of this restriction because ALGOL will do its own 
run time queueing of procedures. 

NOTE: There is no limit to the number of activities without identities a program 
may have. If it is necessary to have more than the maximum number of 
activities simultaneously processing, non-identified activities may be 
used. 



12.2.3. Restrictions 



It is important to consider the effect of multiprocessing upon both the system 
and the individual user. 

The execute statement allows the user to take advantage of multiple processors 
to decrease his throughput time., e.g., in a job which has an elapsed time of 5 
minutes, 10 minutes of CPU time can be taken advantage of. Extra time v/ill be 
used due to overhead for initialization of activities and activity control house- 
keeping done by ALGOL. Multiprocessing also increases system overhead because 
the executive must now schedule several separate activities simultaneously. 

In demand or real-time situations, a quick response can be vital. In these situations, 
the ability to schedule independent activities can be used to achieve this quick 
response. 

In a batch mode, however, where rapid throughput is not necessary, caution should 
be used against indiscriminate use of this capability. 

ALGOL library procedures (SIN, COS, MOVE, etc.) may not be used in an execute 
statement. 



External ALGOL procedures, which have been separately compiled, can be used 
in an execute statement. 
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12.2.4. Example 



LABEL 
1 


OPERATION OPERAND 

10 20 30 40 


COMM 
50 


1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 


1 1 1 1 1 1 


^ ,_, |T|A,S,Ki j^T,A^S,KlC^g,NJALQA^;j._.L_l I _LL L._L J ..i.__j.._a i__..L_j_._. 


._! J.__J_ _L 1. . L J _J_ 


1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 


1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 


1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 


, , , |E,X,E,C,U,T,E,(,P,R|0,C,1,(,A,R,G,1,),)|;, , 


1 1 1 1 1 1 1 1 


1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 L 1 1 . 


1 1 1 1 1 1 


, , , |E,X,E,C,U,T,E|(,P|R|0,C,2,) ,;,,,,, , 


1 1 1 1 1 1 1 1 


1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 


1 1 1 1 1 1 


, , , |E,X|E,C,U,T,E,( ,P|R|0,C|1,( ,1 ,N|P,U,T„ |0|U|T|P,U|T,), ,,T,A|S,K,C|0,N,T,R,0,L,)|; 1 









12.3 WAIT STATEMENT 

12.3.1. Syntax 

<wait statement> : := WAIT (<task list>) 

<task list> : : = <task variable> ] <task list>, <task variable> 

12.3.2. Semantics 

The wait statement gives to programmers the capability to synchronize processing. 
If all the activities associated with the task variables named are completed (or if 
the task variables were never associated with any activity) the wait statement has 
no effect on the program. 

If any activity associated with the task variables given is still processing or 
scheduled for processing, the activity issuing the wait suspends itself. It will 
continue processing only after all activities associated with the task variables 
in the task list have terminated. 

12.3.3. Example 



1 10 20 30 40 50 60 






1 1 t 1 ITiAiSiKi ,AiR,RiAiY| i i Q 0| N| T| Ri 0| LiR 1 1 : i 1 lO Hi ; i i i i 1 i i i i 1 i i i i i 




1 1 1 1 1 1 1 i 1 1 1 i 1 1 1 1 1 1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 j 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 




1 1 1 I 1 1 1 11 1^1 A| 1 |T| ( 1 T| A, SiKjE |R| , 1 T| 1 1) 1 ; , , , , | i , , , i i i , i | , , , , , , , , , | , | , , 


, , , F,0,R, , ,1, :, = ,!, |S,T,E,P, ,2, ,U,N,T|I,L, , ,5, , ,D,0, | ,W,A,I,T,(, ,C,0,N|T,R,0, L, C 1 J, ,) , |;, , 
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12.4 DELETE STATEMENT 

12.4.1. Syntax 

<delete statement> : : = DELETE(<task list>) | DELETE (<arithmetic exp.ression>) 

<task list> : : = <task variable> | <task list>, <task variable> 

12.4.2. Semantics 

The delete statement is used when one activity wishes to terminate another 
activity. When the delete statement is encountered, it causes the immediate 
termination of all activities associated with the named task variables using 
the executive function ADLT$. 

If an arithmetic expression is used, it must be equal to or 1. Any other value 
will cause an error to occur. 

If the value is zero, all activities other than the one giving the DELETE are 
terminated. If the value is one, all activities without identities (those initiated 
without a t^sk variable in the execute statement) are deleted. It is possible for 
an activity to delete itself. 

12.4.3. Example 



1 10 20 30 40 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1: 1 1 1 1 


, . , IT,A,S,K, , ,T,1,,,T|2„ ,T,3,; , , 1 ,,,,,, , 


1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 I 1 ,N,T,E,G,E,R, , ,11; 1 < i < . i < , < < 1 


1 1 1 1 1 1 1 1 1 1 • 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


E,X,E,C,U,T,E.(,P,R|0,C,1,(,I ,),,,T,1 ,)|; ., i , 1 ,,,,,, , 


, , E^X^E^C UT_E^(^P_R|0C^2^, J^i; ^; , ^ ^ , ^ 


1 1 1 1 1 1 1 1 t 1 * 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


,,,,,,,,, |D,E,L,E,T,E,(,T,1,,|T,3,),; | , , , , , 


1 1 1 1 1 1 1 1 1 1* 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


, , , , |.I,F, 1 ,D|I,F,F, ,L|S,S, , ,l,0,e,-,6, | |T,H,E|N| , , D, E, L| EJ, E, ( , 1 ,) , ; , 
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12.5. EVENT STATEMENTS 

12.5.1. Syntax 

<event statement> : : = <set statement> | <clear statement> | <event wait statement> 

<55et statement> : : = SET (<event list>) 

<clear statement> : : = CLEAR (<event list>) 

<f;vent wait statement> : ; = EWAIT (<event list>) 

<e;vent list> : : = <event variable> | <event list> , <event variable> 

12.5.2. Semantics 

The event statements are used to define sub-activity states and to wait for 
sub-activity completion. 

The se^ statement indicates that the event is active. If the intrinsic Boolean 
function ETEST is given a set even^ variable as an argument, it returns a value 
of TRUE. No waitingis done by the ETEST function. The ewait statement will 
suspend the activity issuing it until all event variables in the list are clear. By 
using this statement, it is possible to delay an activity until another activity has 
reached a certain point. 

The clear statement indicates an event is inactive. An EWAIT issues a cleared 
variable causing no delay in execution. The ETEST function returns a value of 
FALSE. 

NOTE: After an EWAIT on an event variable is passed, it leaves that event 
variable set, whether or not it was set originally. 
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12.5.3. Example 



1 10 20 30 40 50 60 80 


1 < . 1 1 r 1 1 Ill 1 < 1 1 i I > I < 1 J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 . 1 1 1 , 1 1 i 1 1 1 1 


„i_.i._i...i L.L. 1.. 1, L. IEiVlEiHT, , ,E, 1,,|E,2, ,,E,3,;, , , , I , , , , , , , , , I , , , , , , , , , 1 l i , i , , , , , 1 i , , j , . , i i_,A_, lj.j i. . j , i . 
1 1 , , , 1 1 1 1 |R|E,A|L, 1 ,R,E,5|U|L,T,, 1 , 1 |N, 1 ,T, 1, Ai L, ;, ,,,,,, I , i , 1 , ■ , i i . , , i 1 , i , i , , i , , 1 


|P,R,0,C,E,D|MF^E, 1 , ,G,R,A,P,H 


(|P|Ol l,N,T,,, ,I,N,P,U,T|,| ,P|A,SiS^Pi,j |P,L,0,T,T|E,Pj ), ;l L, 1 , ,__ , . , , , j | i ._i _ i..j._j. l_lj._j._ 
TJ,E|D, ;, 1 , , 1 1 , , 1 , 


, |E|V|E,f^T, 1 ,P,A,S|S,E,D,,,P,L,0 


|R,E,A,L, , ,P,0, 1,N|T,, , ,1 ,N,P,U 




i i-, , , > , 


, , 1 , ^ ^ _ , ^ , , , , 1 ,,,,,,,,, 1 , 1 ,,,,,,,, , 




^ , 1 1 , , 1 ,,,,,,,,, 1 ,, , 1 


, , |C,L,E|A,R,(,P,A,S,S|E,D,),; , , 


, , 1 1 , 1 i , . , > M J 1 , 1 , , 1 1 , 1 I , , , I , , 1 1 1 1 , 1 1 1 1 1 1 , 1 > , , I 






, l-i 1 , < 1 , , 


, 1 1 1 , , , 1 1 1 1 , 1 , , , 


l-i > 1 1 1 1 , 1 i 1 


< M , 1 , , , , I , . 1 1 i < , 1 , 1 1 , 1 1 1 , 1 , 1 , 1 , 1 l' 


,111,1,,, |1,F, , ,P,0,1,N,T,-|P,0, l,N,T,l,< 


,0,. 10,0,0,1, , ,T,H,E,N| ,G,0,T,0, ,L,0,O,P| ,E,L,S,E, , C, L, E, AI R, ( , P, L, 0, T, T, E, D, ) 1; 


I , , > 1- , , I , , 1 . i , 1 , . < 1 < . , , < 1 i ,,,!,,, I 1 I , , , , I , I I 1 1 1 1 1 1 1 , 1 1 1 , 1 , , 


II ,Fi ,EiTiEiS,Ti( |P|A|S,S,E,D,), ,A,N,DI ,E,T, E, S,T, ( , P, L, OIT.T, E,Di) , , T, H, E, N| ,G,Oi rT, 0, ,E,X,I,T,;, , 1 , < , , , 1 


, , , , ,., , , ,,,, 1 ,,,,,,,,, 1 , , , , 1 1 , , , 




, , I , , , 1 , , 1 , , 1 ,1 


E,X,I,T, |E,N,D, , ,0|F, , , |G,R,A,P|H,; 


,, \ ,,,,,,,,, \ ,,,,,,,,, \ , , , 1 1 Ill 


,,,,,,,,,, 1 , , , , , 


i , 1 < , 1 1 , , 1 , , 1 I ,. I , 1 , , , , 1 1 , I , , , , , , 1 1 , , , , 




i 1 1 < i 1 1 , , , i 1 , 1 , , 1 , 1 1 , 1 , 


, , , |S,E,T,(, ,E, 1,,,E,2|) ,;,,,,. 

1 • , 1 r . , . 1 , , 1 . , , , , , 




, , 1 , , 1 ,,,1,11 , 


, |E,X|E|C,U,T,E,(, ,G|R,A,P,H,( ,R,E 


S,U,L{T|, ,I|N| l|T, l,A,L,, |E|1| ,|E,2|)| ,)i;i | 1 i i , i i i i i , 1 


,,,,,,!,,,,, 


, , 1 1 [ 1 , 1 1 1 1 


1. 1 1 1 E|W|A, l,T,(,E,l,),;| ,,,,,, 




|C|L,E,A,R,(,E,1,),;| ,,,,,, 










, , I ^ , , ^ ,,,,,, 1 , 1 , , , 




1 i 1 J 1 1 1 1 L 1 [ 111 1 


I 1 1 1 1 1 1 1 1 1 ■ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 , , , 1 
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13. SORT/MERGE 



13.1. SORT STATEMENT 

13.1.1. Syntax 

<sort statement> : : = SORT (<input option>, <output option>, <data reduction 

procedure>, <sort order>, <range inclusion>, <number 
of tapes>) 

<input option> : : = <input file> | <input prpcedure>, <record length> 

<input file> : : = <file identifier> | <switch file designator> 

<input procedure> : : = <Boolean procedure identifier> 

<record length> : : = <fixed item size> | <variable item size> 

<fixed item size> : : = FIXED RECORD <arithmetic expression> 

<variable item size> : := RECORD <minimum isize>, <maximum isize> 

<minimum isize> : := Orithmetic expression> 

<maximum isize> : :- <arithmetic expression> 

<output option> ; : = <output file> | <output procedure> 

<output file> : : = <file identifier> | <switch file designator> 

<output procedure> : : = <Boolean procedure identifier> 

<data reduction procedure> : : = <Boolean procedure identifier> | <empty> 

<sort Qrder> ; : = <own compare> ] <key description> 

<own compare> : : = COMPARE <Boolean procedure identifier> 

<key description> : ;= KEY <format>, <ordering sequence>, <word position>, 

<bit position>, <number of bits> 
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<format> : : = Olphabetic variable> 

<ordering sequence> : : = <alphabetic variablo 

<word position> : ; = <arithmetic expression> 

<bit position> : : = <arithmetic expression> 

<number of bits> : : == <arithmetic expression> 

<range inclusion> : : = <hivalue> | <low value> | <empty> 

<hivalue> : : = HIGH <arithmetic expression> | HIGH <arithmetic expression>, 
OWN KEY <rangeown> | HIGH <hivalue procedure> 

<rangeown> : : = <major own> | <major own>, <minor own> 

<major own> : : = <arithmetic expression> 

<niinor own> : : = <arithmetic expression> 

<hivalue procedure> : : = <Boolean procedure identifier> 

<low value> : : = LOW <arithmetic expression> | LOW <arithmetic expression>, 
OWN KEY <rangeown> I LOW<low value procedure> 

<low value procedure> : : = <Boolean procedure identifier> 

<number of tapes> : : = NTAPES<integer number> | <empty> 



13.1.2. Semantics 



The sort statement causes data, as specified by the input option, to be reordered 
as directed by sort order and returned to the program in the manner specified by 
the output option. All items specified when using the sort statement must be 
specified in the order required as stated in the syntax of the sort statement. 

II Input Option 

An input option must be given and must be the first item specified in the sort 
statement. If an input file is given as the input option, the file must be of 
fixed item size only. All records on the file will be taken as input. Item size 
and blocking information will be taken from the file declaration and no record 
specification is to be made in the sort statement. This file will be rewound 
and returned to load point after the SORT has read all the records if tape, and 
if drum, the pointer will be reset to point to the first item of the file. 



UME-7636 



UN I VAC 1108 

EXTENDED ALGOL 



13 



SECTION: 



If an input procedure is specified, that procedure will be invoked to furnish 
input to the SORT. An input procedure must be a Boolean procedure, with an 
array as its only parameter.. Array size is determined by the recorcf length 
specification. The input procedure, on each call, will either (1) insert the 
next record to be sorted into the array parameter, or (2) assign a TRUE value 
to the procedure identifier. When a TRUE is returned from the input procedure 
to the SORT, the SORT will not use the contents of the array, and will not call 
the input procedure again. The record length represents the length of the 
records to be sorted. Record length must be stated whenever an input procedure 
is specified. For fixed length records, this will be the length of each record 
presented to the sort. For variable length records, two values must be stated: 
the minimum record length and the maximum, and they must be stated in that 
order. Variable length record files to be sorted must have an input procedure, 
as opposed to an input file declaration, associated with them. 

■ Output Option 

An output option must be supplied and must be the second item specified in 
the sort statement. If an output file is specified it can only reference a fixed 
item size file. The sort will write its output on the specified file, close the 
file Upon completion and rewind to load point if tape or first item of the file 
if drum. If an output procedure is specified, it will be invoked once for every 
record that was sorted, and once to allow "end of output" action. This pro- 
cedure must be untyped, and must have two parameters: the first a Boolean, 
and the second an array. Size of the array is determined by record length. 
The first parameter will be TRUE if, and only if, the last record has already 
been returned. If the first parameter is FALSE the second parameter will 
contain a sorted record. 

W Data reduction procedure 

The data reduction procedure is optional, but if indicated, must be the third item 
specified in the sort statement. If a data reduction procedure is specified, it will 
be invoked by the SORT each time records of identical keys are encountered as 
the data is sorted; the option to condense items is open at this point. This must 
be a Boolean procedure with exactly two parameters, both of which must be 
arrays. The result which is returned via the procedure identifier should be TRUE 
if the arrays are combined and FALSE if not. If the records (arrays) are combined 
the array given as the first parameter must contain the combined record; that 
given as second is ignored. The key field defined to the SORT of the two 
records, if not combined, or of the combined record, if combined, must not be 
altered. Data reduction cannot be used with files containing variable size 
records. 



■ Sort order 

The programmer has the option of defining a key for the SORT and the SORT 
will generate the compare coding for determining which of two records should 
be used next in the sorting process, or the programmer may specify a compare 
procedure of own code. 
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If a compare procedure is specified, it is called by the SORT to determine which 
of two records should be used next in the sorting process. It must be a Boolean 
procedure with exactly two parameters, both of which must be arrays. The 
arrays must both be equal to the largest record contained in the file to be sorted. 
The result which is returned via the procedure identifier should be TRUE if the 
array given as the first parameter is to appear in the output before the array 
given as the second or if the order is immaterial; and FALSE if the array given 
as the second parameter is to appear in the output before the array given as 
the first parameter. 

If a compare procedure is not stated, then a key must be declared. If key is 
specified, then the 1108 SORT will generate the compare coding. The key 
description defines the field of the record on which the file is to be ordered. 
Every record must contain the entire key field described. The output of the 
sort will be a file reordered on the specified field. 

The key description is composed of the following five variables; 

(1) Format 

An alphabetic variable specifying the format of the key field as follows: 

A alphanumeric 

B signed 1108 binary 

D signed decimal 

M 7090 IBM* signed binary 

U unsigned binary 

(2) Ordering Sequence 

An alphabetic variable specifying the desired ordering sequence of the 
key field as follows: 

A ascending field 
D descending field 

(3) Word Position 

An arithmetic expression which must yield an integer number specifying 
the number of the word within the record containing the most significant 
bit of the key field. The words within a record are numbered from left to 
right beginning with 1. 

(4) pit Position 

An arithmetic expression which must yield an integer number in the range 
of through 35 indicating the bit position within the above defined word 
which contains the most significant bit of the key field. The bit positions 
within a word are numbered from right to left beginning with 0. 



(5) Number of Bits 

An arithmetic expression which must yield an integer number specifying 
the length of the key field in bits. 

♦Trademark International Business Machines Corporation 



UME-7636 



UNIVAC no8 
EXTENDED ALGOL 



13 



SECTION! 



Range It7clusion 

Range inclusion specifications provide the user with the ability to include 
only values above or below a given value as input to the SORT. There are 
three ways in which the range inclusion facility can be specified or it need 
not appear in the sort statement at all. 

(1) The hivalue or low value facility can be in relation to the already specified 
key field of the sort statement. In this instance, the key field must only 
include two words of the item and will be taken as two whole words. 

(2) It can be in relation to a defined field, OWN KEY. This field can be other 
than the key field indicated in the key description or in the case of a 
compare procedure where no key field is defined. The OWN KEY specifica- 
tion allows for the definition to encompass not more than two words of the 
item. If it is only to include one word, then the word number, beginning 
with one and counting left to right, must be specified. If it is to encompass 
two words, then the word numbers of both words must be specified in 
sequence, first word major, second minor. 

(3) It can also be a Boolean procedure. This procedure would be called by the 
sort in order to determine whether or not to include this item prior to in- 
putting the item to SORT. If specifying a procedure, it must be a Boolean 
procedure and have an array as its only parameter. The result which is 
returned via the procedure identifier should be TRUE if the item is to be 
included in the sort and FALSE if not. 

If a range inclusion procedure is desired then the procedure name must 
stand alone. If a function designator is specified, it must have at least 
one parameter. 

Arithmetic expressions for HIGH, LOW, and/or OWN KEY must yield an 
integer value. 

Number of Tapes 

If scratch tapes are indicated, the number must be specified at compile time 
and must be an integer number within the range of 2 through 7; it must be the 
last item specified in the SORT statement and must be preceded by the 
indicator, NTAPES. The philosophy of ALGOL sorts will be to take a 
standard of core, scaled to 1108 SORT minimum requirements, and calculate 
a suggested drum, scaled minimum also, and avoid use of scratch tapes. Only 
if an exceptionally large volume input is expected should scratch tapes be 
specified. 



13.1,3. Restriction 



A general limitation is that array subscripts should not be used which exceed the 
maximum record length specified to the SORT. 
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13.1.4, Examples 

Example #1 



1 10 20 30 40 50 60 


80 


1 1 iBiEiGiINi 1 ICiOiMiMiEiNiT, ,5 lOlR.T, , Pi Ri Oi Gi Ri A, M >D,EiF, 1 iN, 1 iN,G, lliMPiUT, ,&, ,0,UIT|PiU,T, ,PiR,0,C|E|DjUj_R|EiS , ,&| ,K|E|Yi;i , , , 


.i.^.j_ 


, , , , , ,A|I-,P,H|A, ,K, l,N,D,,.SiE ,Q|; , , , 1 ,N,T,E,G,E,R, , ,W,0,R,D,, ,B, 1 ,T| „ ,R,L,N,T,H,; , ,B|0,0, L, E, A, N, ,B,1„|B,2,;, i , , , , , J , , , , , 


, , , , , ,F,I,L,E| ,I,N, ,F,1,N, ,3, 1 ( ,1 , , , ' 1 4, ) , ; , ,,;:,,; ,_, , , i | , , ,,,,,, i I ,,,,,,,,, I , 


1 , , , , ,F,I,L,E| ,0,U,T, ,F|0,U,T, |1, , ( .1 , , ,2,2,) , ; , ;,,,.,,,,,! | | 1 , , i , ) 


A,I.,P,H|A, ,A,R|R,A,Y, , A, R| 1 ,N,, ,A,R,0, ,[ , 1 , : i 1 , 4, | , ; | | i i i 1 i , i 1 




1 , , , , , 1 1 , 1 1 1 1 


L._.^_l._,_ 


J- L 1 L L 1 L jBiOIOlLjEiAj^Ni jP^R|OjC|E|D,U,R,E, , 1 ,N| P|RiO,C| ,(,A, I^ 1,) ,; I 1 1 , , , ^ ^ ^ L , [ ^ , i j. j. j. , j j | , , , liilii1_iiiji_ 


J- J_ J- J_ l_i 1 1 1 JAiL,P,H,A| ,C|QR, E| |A, R, R,A, Y, ,A,R,1,; , , , , , , , , , | ^ i i_ i i i i i i 1 i i ±_l l i i i i 1 i i i i i i i i i 1 , i , ,_ j 




. 1 1 B,E,G,I,N 1 , 1 , 1 , , , , 1 1 1 1 1 , , , 1 , J 1 1 1 1 1 1 .1 .,..lI 1 j_i _li 1 1 1 1 J_i J .LLj. 




,,,,,,,1,1,, ,L,A,B,E,L, ,E|0,F P,1,,,P2,;| | , , i i i i i 1 i . . , i i i i , 1 




,,,,,,,,,!,, ,R,E,A,D, ,(,F|l,h^,,., ,,A,RI ). ,1 ,E,0,F,l,l,; , , , i , , 1 i , , , , i , i i 1 i i , i , , j , , 1 i , , , , 




1 , , , 1 N,P,R,qC,:|-,F,A, L,S,e,; , ,GiOi , T, 0, , P, 1, ;,,, 1 ,,,,,,,,, | ,,, , 1 ,,,,,,,,, 1 




j_ 1 1 L 1 1 1 _i 1 1 1 , ,EiO,F, 1,:, ,1 |N,P^R,0,C,: , ,T,R,UiE,;,C,0, ,T,0, ,P,2i;^ ^ ^ ^ , , , , , [ , , j , , , ^ , ,^ j__,_j_ , , , , , ^_| J_l_l _i j l 




^_i_.i , 1 1 .l._i_.i_L._i_j_j.Pl.1...l:.l. 1 , ' i 1 . i i i i , i . i i 1 i i i i 1...1 1..1...1 l..j_i...i 1 1 1 1 1 1 1 1 . 1 1 , 1 1 1 1 1 1 1 1 1 1 1 1 , 1 , 












1 1 1 ,:, 1 1 , , , 1 , , , 1 , , , , , 1 , , , 1 , , , 1 , , , 1 , 




, , . 1 P,2,:,E,fAD,;| _, L L 1 1 1 , , , 1 1 1 , 1 1.1 1 1 . 1 1 , 1 1 1 1 , , 1 1 , 1 , 1 




1,1,,,, 1 1 , , , . 1 1 1 1 1 1 , 1 1 1 , 1 1 1 1 1 1 1.1 




1 1 1 1 1 1 , , i , , , , , : . , 1 , 1 , , , , , , , 1 , , , , , , 1 1 








11, P,R|0,C, E|D, U|R, E, ,0,P|R,0,C, , ( , B 0, Q L, 1 , , A, R, 2,) , ; , , , , | , , , 1 1 1 1 1 1 1 1 1 1 1 1 




, , 1 , |A,L|P|H,A| ,C,0,R|E| ,A,R,R,A,Y, ,A,R,2|;, , ,B,0,0, L,E|A,N| ,B,0,0,L,1 ,; , , , | , 1 1 , 1 , , , 1 , , , , 1 




, , , |B,E,C, l,N, , , , , 1 , , , , , , , 1 1,1 1 1 1 , 1 1 1 . 1 1 1 1 




1.1 L,A,B,E,l, ,B|2,;,A,L,P,HA, , E, q F, 0, ; , , , , , ,, 1 ,,,,,,,,, 1 ,.,, , 




,,,,,,,,,!,, ,E,0,F,0,:,-=, 1' ,E,N,D,S,R,T,' ,^ 1 | !,,,,,,,,,! ,,,!,,,,, 




,,,,,,,,,!,, ,I,F, ,B,0,0|L|1, ,T,H,E,N, , ;B,E|G,I,N, ,W,R, 1 ,T,E,( ]F,0,U,T, ,,,,,, E,0,FlO, ),; , ,G,0, ,T,0, |B,2, ,E,N,D, ,E,L,SIE 




, , W,R, l,T|E,(,F,0,U,T,,,.,,,A!R,2,),;, ,,,,,!,,,, ,, 1 1 1 1 1 1 1 1 1 1,111 




, , , 1 , 1 , , , 1 1 1 ,Bi2,: ,E,N,D,; 1 ,,,,,,.,, 1 i ,,,,,,,, 1 ,,,,,, 1 ,, 1 , , , , 1 , , , , 1 




...i. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 ' 1 1 1 L i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 





1 10 20 30 40 50 60 80 


_i , , i^ 1 ,KiljN,^D|! ,-, '|A,',; 1 J ,. 1 1 , , , , , 

1 1 , , L ,Sin,Q,: |--~, ',A,' ,;,,,,,!,,,,, 

_..! Ll_L_l lRli-LNLT|H^:jil_L4^- , 1 , 1 1 , , , , , 


- ...._.^. .._,__.. 


_1, L L 1. I ,*i"jRi.D|v1=,Vi;l...L..1 i. L 1 1 , , , , , 

,,1.1 ,B,!,T,:|==,3,5,;, , , 


...1 , 1 ,1 1 .1 1 1.1 J. 1 1-1 1 1 ,, 1 1 , 1 1 , 1 


^ ^ ^ 1 1 , , _ , 


_, 1 ,,,,,,,,, 1 ,,,,,, , ,,,,,!,,,, , , , 


.>.,,,.,,,,,,,, 1 , , 1 




^ ^ ^ 1 , 1 , , , 1 , , , , , 1 , , 




I ^ , , , 




, , , , , ,S,0,R,T|(,l,N,P,R,0,C,, ,F, l|X,E,D, ,R,ECO,R,Di ,R, L, N, T, H, , , 0, P, R| 0,C, , , K, E, Y, , K, 1 , N| D,, ,S , E, Q, , , W, 0, R, D| , ,B , 1 ,T, , , 1 , 0, 8, ) , ; | ,,,,,,,,, 


: 1 ^ ^ , 1 ^ ^ ^ ^ 1 ,,,, 1 ,,,,,,,,, 1 ,, , 


,,,,,,,,, 1 ,, ^-.^ , ,,,,!,, , ,,,1,1,,,,,,,! 






, , , ,E,N,D,;, , 1 ,,,,,, , 1 , , : ! , , , , 1 1 , 


. . , 1 ,,,.,,,,, 1 1.1^1, 1 1 1 1 1 1 , 1 1 1 1 1 1 1 1 1 




' 
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An example of a SORT program defining input and output files and a key is 
as follows: 



1 10 20 30 40 50 60 






80 


, , ,B,E,G,I,N, , |C|0,M,M,E,N,T, , ,S|0,R,T, , P, R, 0, G, R, A| M, ,D,E ,F, 1 ,N, 1 , N, G| , 1 , N, P, U, T, , &, , q U, T, P, U, T, ,F,I,L,E|S, , &, ,K,E,Y,S|; 

_i.-i i.L L.L±SjA,yiE| ,AiLlPj_Hj^Aj_^FjI |L,E, ,I,N, / , 1 ,N, { 1 2„ ,2 ,8 , 0„ , 1 ,4,) , ;| , j_ j , , , , , , I , i i i. , i_ , ,. i 1 , , i i i , i. i 
__L._Ui.j 1 1 iSiAiVlEi lAiLiPiHiAi iFillLiEi |0|U|T| |F|0|U|T| ,( ,2 , , |2| 8, 0,, ,1 1 4i) ,; ,, , , , , , , I , , j i^ , l l _l i 1 i J l i a l i i 


1 














, , 


L-.l L. L..L L_L.-X. J. 1-_JL_1 J_L_L-L_L J'L l.l 1 1 LI Ll.l ll 1 1 1 1 1 1 1 1.1 1. . L. L. L X i J_J J_ L.J 1 1 l_ L 1 _1_L -J -X.J 1 1 11 11 IJ 
,1 1 1 1 1 1 1 1 1 1^1 1 ! Ill Ill 1 






--- 




, 


,,,,,, |S|O,R|T,(,F,l,N,,,F,0,U,T|,,K,E,Y, ,' , A, ' , , , '| A|' i- |1 i ' , 3|5 ,- , 1,0|8 ,) ,; , , , , , , i 1 i i 1 i i i i i i i i 







, , 

















^ ^ ^ 1 ^ 1 1 1 1 , , , 1 , 1 , 1 , 1 1 1 , , , 1 






, , 


.^ 1 ^ 1 ^ , ^ , i_L_Li X J L_l_Li_LJ 


LX J i L_L_ 


, , 


1 1 1 1 iE,N,D,;, 1 ,,,,,, 1 , 1 1 ,,,,, ,11, 1 1 1 1 1 1 1 1 1 1 J_j_L 1 1 1 1 1 1 1 1 1 J 1 1 1 1 1 1 1 1 1 1 1 1 j__L._i_L.._ 


1 




, , 











Another example of a SORT utilizing an own compare procedure instead of 
can be generated by replacing the SORT call in the first example by the 
following lines: 



KEY 



_.L..j 1 x_ExXL.TLSRif<A,_L)...LBiO,0|L,E]A|N| |P|R 
l.i I 1 I L [l.iN,.SiT,E|A|D, jO,F[ ,D|E,F|I 
, , ,S,0,R,T|( ,1 ,N|P|R,0|C |, | F,I |X,E|D, , R, 



OlC, E| D, 
N,l |N,G 



: 1 1 I 1 1 1 , I 1..1....1 I. 1 .1 1 I 

S , C, 0, M| Pj R| ; I , C| 0, M| Mj E| N, Tj j^Aj^ 

;i I L 1..1...I .1 1 1 1 i.._x..i._.L_i...i I 

N,T,H,, ,0,P,RiO,C|, ,C,0,M,P,A,R,E| 



I I 1 I 1 I I I I I I I I 1 I 
C| 0, M, P, A, Ri Ej jPLRjO,C|E|D|U|R 

1111 i_.i I 1 I 1 I .l.J...L..L 
5,C,0,M,P,R,) ,; , I , , I , , , 



_.L..i 



i_L. 



_i. 



Another example of a SORT utilizing a data reduction procedure and an hivalue 
procedure can be generated by replacing the sort call in the first example by 
the following lines: 



10 



20 



30 



40 



50 



60 



x_i_x_ lxEiXxTiE1RiN|AlLi xBiPlO,L|E|AiN, , P, Rj^QlC, E, D, U| Rj E, , D, R, Q C, ; , , E| X, T, E , R, N, A, L, , B, Q 0, L, E, A, r^ jPjRjOjCJEjD|U|RxEj 
I I I I I 1 I I |C|0|M|M|E|N|T| |D|R|0|C| iJiS, .A. iD|A|T|Ai, , R, E, D, U, C, T , l| 0, N, , P, R , 0, C| E, D , Ll| R| E, ..iTiO^jBiELjilNiyjO, K^E^D 
|OiCiCiU,R|R,E|N|C|E| ,0|F, , D, U, P, L, I ,C| A ,T .E , |K|E,Y,S, , &| ,H|I,P|R,C, ,1,5, | A, |H,I,G,H, ,V|A,L|U,E, |P,R,0| 



Hilj^P^RJC,; j^ 

iU|P,0|N, , 

C,E,D,U|R|E, 



,11, |T,0, |C|K| ,1 ,N|PiU|T, |R,A,N,G|E,; , , |_.i... i_j 
,S|0,R, T|( ,F , riN|, |F|0,U|T,, |D,R,0, C|, , K, E, Y, , '[A, ',,^ 



,Aj^'^,jlj^,_JjSj^,j \Jij^ 



lHj_!jG lH I... i..HLl.LPi.RjCi)j;_,__, _l__i j^ J 



13.2. MERGE STATEMENT 

13.2.1. Syntax 

<merge statement> : : = MERGE (<moutput option>, <range inclusion>, 

<merge order>, <merge file list>) 

<moutput option> : ; = <output file > | <output procedure>, <mrecord length> 

<output file> : : = <file identifier> | <switch file designator> 

<output procedure> : : = <Boolean procedure identifier> 

<mrecord length> : : = <arithmetic expression> 
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<range inclusion> : : == <hivalue> \ <low value> | <empty> 

<hivalue> : : = HIGH <arithmetic expression> | HIGH <arithmetic expression>, 
OWN KEY <rangeown> I HIGH <hivalue procedure> 

<rangeown> : : = <major own> | <major own>, <minor own> 

<major own> : : = <arit:hmetic expression> 

<minor own> : : = <arithmetic expression> 

<hivalue procedurO : : = <Boolean procedure identifier> 

<low value> : := LOW<arithmetic expression> j LOW <arithmetic expression>, 
OWN KEY <rangeown> ] LOW<low value procedure> 

<low value procedure> ; : = <Boolean procedure identifier> 

<.merge order> : : = <own compare> | <key description> 

<own compare> ; ; = COMPARE <Boolean procedure identifier> | <empty> 

<key description> : : = KEY<format>, <ordering sequence>, <word position>, 

<bit position>, <number of bits> 

<format> : : = <simple alphabetic variable> 

<ordering sequence> : : = <simple alphabetic variable> 

<word position> : : = <arithmetic expression> 

<bit position> : : = <arithmetic expression> 

<number of bits> : : = <arithmetic expression> 

<merge file list> : : = <merge file>, <merge file> | <metge file>, 
<merge file list> 

<merge file> : : =: <file identifier> | <switch file designator> 



13.2.2. Semantics 



The merge statement causes the data in all of the ordered files of the merge file 
list to be combined as directed by merge order and returned in merged sequence 
as specified by the moutput option. All items specified when using the merge 
statement must be specified in the required order as stated in the syntax of the 
merge statement. 
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Moutput Option 

An output option must be supplied and must be the first item specified in the 
merge statement. If an output file is specified it assumes a fixed record size 
file. If variable length records are used in the merge files, the record size of 
the output file must be equal to or greater than the largest record size of the 
merge files. Record size and blocking information will be taken from the file 
declaration and no record specification is to be made in the merge statement. 

End of merged items will result in an end of file sentinel being written out and 
the file returned to load point if tape, or first item of the file if drum (See 
rewind without interlock of Section 11.). 

If an output procedure is specified, it will be invoked once for every record 
merged, and once to allow "end of output" action. This procedure must be 
untyped, and must have two parameters: the first a Boolean, and the second 
an array. The first parameter will be TRUE if, and only if, the last record has 
already been returned. If the first parameter is FALSE, the second parameter 
will contain a sorted record. Size of the array, specified as the second parameter, 
is determined by mrecord length. The mrecord length represents the maximum 
length of records (items) to be written out after merging, and must be specified 
when an output procedure is indicated and must not be specified when an 
output file is indicated. 

Range Inclusion 

Range inclusion specifications provide the user with the ability to include only 
values within a specified range, or only values above or below a given value as 
input to the MERGE. There are three ways in which the range inclusion facility 
can be specified or it need not appear in the merge statement at all. 

(1) The hivalue or low value facility can be in relation to the already specified 
key field of the merge statement. In this instance, the key field must only 
include two words of the item and will be taken as two whole words. 



(2) It can be in relation to a defined field, OWN KEY. This field can be other 
than the key field indicated in the key description or in case of a compare 
procedure where no key field is defined. The OWN KEY specification 
allows for the definition to encompass not more than two words of the item. 
If it is only to include one word, then the word number, beginning with one 
and counting left to right, must be specified. If it is to encompass two 
words, then the word numbers of both words must be specified in sequence, 
first word major, second minor. 

(3) It can also be a Boolean procedure. This procedure would then be called by 
the merge in order to determine whether or not to include this item prior to 
inputting the item to MERGE. If specifying a procedure, it must be a Boolean 
procedure and have an array as its only parameter. The result which is 
returned via the procedure identifier should be true if the item is to be in- 
cluded in the merge and FALSE if not. If a range inclusion procedure is 
desired, then the procedure name must stand alone. If a function designator 
is specified, it must have at least one parameter. 
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Arithmetic expressions for HIGH, LOW, and/or OWN KEY must yield an integer 
value. 

Merge Order 

The programmer has the option of defining a key for the merge and the MERGE 
will generate the compare coding for determining which of two records should 
be used next in the merge process or the programmer may specify a compare 
procedure of own code. 

If a compare procedure is specified, it is called by the merge to determine 
which of two records should be used next in the merge process. It must be a 
Boolean procedure with exactly two parameters, both of which must be arrays. 
The result which is returned via the procedure identifier should be TRUE if the 
array given as the first parameter is to appear in the output before the array given 
as the second parameter or if the order is immaterial, and FALSE if the array 
given as the second parameter is to appear in the output before the array given 
as the first parameter. The arrays must both be equal to the largest record 
contained in the files to be merged. 

If a compare procedure is not stated, a KEY must be declared. If key speci- 
fication is given, then the MERGE will generate the compare coding. The 
key description defines the field of the item on which the file is to be ordered. 
Every item must contain the entire key field described. The output of the 
merge will be a single file merged on the specified key field. The key speci- 
fication encompasses the following five fields: 

(1) Format 

An alphabetic variable specifying the format of the key field as follows: 

A alphanumeric 

B signed 1108 binary 

D signed decimal 

M 7090 IBM signed binary 

U unsigned binary 

(2) Ordering Sequence 

An alphabetic variable specifying the desired ordering sequence of the 
key field as follows: 

A ascending field 
D descending field 



(3) Word Position 

An arithmetic expression which must yield an integer number specifying the 
number of the word within the record containing the most significant bit of 
the key field. The words within a record are numbered from left to right 
beginning with 1. 
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(4) Bit Position 

An arithmetic expression which must yield an integer number in the range 
of through 35 indicating the bit position within the above defined word 
which contains the most significant bit of the key field. The bit positions 
within a word are numbered from right to left beginning with 0. 

(5) Number of Bits 

An arithmetic expression which must yield an integer number specifying 
the length of the key field in bits. 

Merge file list 

The merge file list names the files to be merged; it must contain at least two 
and may contain from two to seven ordered files to be merged. Each file 
named must be a fixed item size file, but the different files can have different 
size items. Item size and blocking information will be taken from the file 
declarations associated with the particular files named. Exhaustion of files 
will result in the file being returned to load point if tape, or first item of the 
file if drum. 



13.2.3. Restrictions 



A general limitation is that the subscripts of an array should not be used which 
exceed the maximum record length specified to the MERGE. 



13.2.4. Examples 



1 10 20 30 40 50 60 80 


1 , ,B|E,G,I,N, ,C|0,M|M,E,N|T, ,M,E,RiG,E, ,E|X,A,M,P,L,E| |U,S|I,N,G, ,0,U,T|P|U|Ti ,F,I ,L,E, ,6>| ,K|E,Y, ,DiE,S ,C ,R| 1 ,P,T,I ,0,N; ; , , i {,,<,. i , i i 

.._i_j.__L_L__L_LAiLLPiHjAi |K;ijNi_DLi_iS_LE|Q|; , ,I_,_N,TjElG,E|R, IWjOlRiD, , iB,! ,T,, .AU , Bij_lRjL,N,T,Hj ; l | i , , i.j.i_j , , 1 j .__ i _i_ j . , i i i i_.i li , . i . , i 

FiliLQ lOiUiTi iFiOiUiT, Hi i ( i 1 1 , 1 2, 2,) , ; , I , , , I i i , I i , , i , i , i i 1 i , \ , 


F,l |L,E| |I,N, |M|I |N,1 , |3|(,1 ,,,1 |4|)|;, |C,OiM,M,E,N,T, , 0, R, t^ E| R, E, D, |F|I,L,E,S, |F,0,R, ,M,E,R,CiE, i -, .M, 1 ,N, 1 , , .M, 1 , N| 2 , , , M, 1 ,N , 3, ; , , , 


, , , , , ,F,I ,L,E| |l ,N, vM,l ,N,2, ,3 1( ,1 ,,,1 ,4,) ,; , 1 ; , 1 i 1 i , , i , , , , , ! , , , , 


, , , , , ,F,I ,L,EI ,1 ,N, ,M,I ,N,3, ,3 l( i1 , . ,1 ,4 ,) .- , , , I ,,,, 1 ,,,,,,,,, 1 1 , , , , 1 , 


,,,,,,,,, |K,I,N,D,:, = , ',A|',;| , i ,,,,,,, 1 1 , , , , , i , , i 1 ' , i i i , i , i i i , i 1 


II |S|E|Q,:|:=| \a, ',; , I ; | [ i i i 1 1 


|W,0,R,D,:| = ,1„' 1,1 1 1 , ! 1 1 1 , 1 1 1 1 1 1 1 1 1 1 1 1 , 






^ ^ ^ ^ ^ , , , ^ 1 , ^; _ , 1 1 1 1 , 1 1,1 1 1 1 1 , 1 , , , 1 1 1 


1 ^ ^ 


1 1 1 1 


^ ^ ^ ^ 1 ^ ^ 


1 ■ 1 1 .1 1 1 


*, 1 , , 1 1 , 1 1 , , , 1 1 1 1 1 1 1 , , 1 , , , , 1 , , 1 , 1 , , 1 , , 


M,E|R,G|E,(|F,0,U,T,,,K,E,Y| , K, 1 , N, D, , , S,E,Q„ |W,0,R|D, , , ^ 1 i T, , ,1 | 0, 8„ |M, 1 , H , , M, 1 , Nj 2| , , ^^l ,N| 3, ) i; , i | i i i 1 i , i i i i i i i 










1 1 1 1 1 1 1 1 1 1 1 1 


1 ^ 1 , , , , 1 , , , , 1 , , , , 


, : |E|N|D,;, , , 1 , , 1 1 , 1 1 1 1 1 , , , 1 1 , 1 1 1 1 1 1 1 1 1 1 1 1 1 1 . 1 1 ; 1 , < ; , 1 1 1 1 1 1 




1 



Other examples with proper procedures could be as follows; 



LABEL OPERATION 

1 10 20 


30 


OPERAND COMMENTS 

40 50 




60 








80 


I 1 1 1 iMiEiRiGiEK lOiPiRiOiCi.iRiLiNITiH 


.iCiOiMiPiA, RiEl 


iS iCjPjM iPjBjtjMilJlLl u- iMiLJli2 1. iM il INiSji us i 




_i J J 


J . .1 .L__].. _L 1 
J. ._L.. 1__1 . 1. 1 


' ' ' 


.1 1 . L_ I- 




, ^ I , ^ , ^ ^ ^ , , ^ 1 ^ 




1 L. J ., L_l J_J _lJ _L^-_l_L_X_.i, .L I L._Lj 1 1 1 L 




1 1 i_ 
1 ! 1 












^ , , 1 , , , 1 , , , , 1 1 


.._.. 


, 1 1 




i ^ . 1. . t 








M,E,RiO,El(,0,P,R,0,C,,ili4i,|Hil 


GiH, jyj.k4j.2ij 1. 


__iKiEj.Y, iJ<i.UNiBuJ5.iEiQi,j_l,,j3.i.5i,_i3I4i, jMiI iN,] 


, .^Ml 


1 NI,2l 


iWlI iKi3i)i; 
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APPENDIX A. ERROR DIAGNOSTICS 



There are two general types of errors checked for and indicated by appropriate 
diagnostics in the UNIVAC 1108 Extended ALGOL compiler: compilation errors 
and run-time errors. 



COMPILATION ERRORS 

For compilation errors, an asterisk (*) is printed under the symbol at which 
a syntax error is detected, and the error diagnostic is printed on theleft-hand 
side of the page on the line following. The compiler attempts to recover 
and continue compilation following the error diagnostic. Since the compiler 
attempts to recover at a particular point, symbols that are invalid at that 
point are read, and spurious error messages are frequently generated following 
a legitimate error message. The spurious messages will, of course, disappear 
when the legitimate error is corrected. 

The possible compilation time error diagnostics follow: 



01 ILLEGAL CHARACTER PAIR 

02 CONSTANTTOO LARGE 

03 IMPROPER BLOCK STRUCTURE 

04 IMPROPER DECLARATION 

05 DUPLICATE DECLARATION/SPECIFICATION 

06 IMPROPER DECLARATION/SPECIFICATION 

07 IMPROPER SPECIFICATION 

08 IMPROPER SPECIFICATION 

09 MISSING SPECIFICATION 

10 IMPROPER OWN DECLARATION 

11 IMPROPER EXTERNAL DECLARATION 

12 DUPLICATE VALUE SPECIFICATION 

13 IMPROPER LABEL SPECIFICATION 

14 IMPROPER VALUE SPECIFICATION 

15 IMPROPER ARRAY DECLARATION 

16 IMPROPER ARRAY DECLARATION 

17 IMPROPER LIST DECLARATION 

18 IMPROPER LOCAL DECLARATION 

19 IMPROPER SWITCH DECLARATION 

20 IMPROPER PROCEDURE DECLARATION 

21 IMPROPER PROCEDURE PARAMETER 

22 DUPLICATE PROCEDURE PARAMETER 

23 IMPROPER PARAMETER DELIMITER 

24 IMPROPER PROCEDURE SPECIFICATION 
2-5 IMPROPER LABEL DEFINITION 

26 DUPLICATE LABEL DEFINITION 



27 IMPROPER FORMAT PHRASE 

28 IMPROPER FORMAT DECLARATION 

29 IMPROPER NAMELIST DECLARATION 
IMPROPER REPEAT PHRASE 
IMPROPER SWITCH FORMAT/FILE/LIST 

32 UNDEFINED FORMAT SYMBOL 
33' IMPROPER FORM DECLARATION 

34 IMPROPER USE OF WITH 

35 IMPROPER DEFINITION 

37 IMPROPER PROCEDURE CALL 

38 IMPROPER PROCEDURE ASSIGNMENT STATEMENT 

39 IMPROPER IF-STATEMENT 

40 IMPROPER IF-STATEMENT 

41 IMPROPER USE OF THEN 

42 IMPROPER USE OF ELSE 

43 IMPROPER FOR STATEMENT 

45 IMPROPER ACTIVITY DECLARATION 
48 IMPROPER TIMING CLAUSE 

52 IMPROPER GO STATEMENT 

53 EXTRA RIGHT PARENTHESIS 

54 EXTRA LEFT PARENTHESIS 

56 MISSING OPERATOR 

57 MISSING OPERAND 

58 EXTRA END 

59 MISSING END 

60 IMPROPER USE OF DIV OPERATOR 



30 
31 
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61 IMPROPER ASSIGNMENT STATEMENT 

62 UNDEFINED TRANSFER FUNCTION 

63 IMPROPER USE OF A LIST IDENTIFIER 

64 IMPROPER USE OF A LABEL 

65 IMPROPER USE OF A RESERVED IDENTIFIER 

66 IMPROPER USE OF AN ARRAY IDENTIFIER 

67 UNDEFINED RELATIONAL OPERAND 

69 MISPLACED SEMICOLON 

70 MISPLACED COLON 

71 MISPLACED COMMA 

72 UNDEFINED VARIABLE 

75 FILL LIST ELEMENT NOT CONSTANT 

78 IMPROPER EVENT STATEMENT 

79 COMPILER CAPACITY EXCEEDED 

80 DICTIONARY CAPACITY EXCEEDED 

84 EXTRA RIGHT BRACKET 

85 EXTRA LEFT BRACKET 



86 IMPROPER CONCAT SPEC 

87 SORT-IMPROPER INPUT SPECIF 

88 SORT-IMPROPER OUTPUT SPECIF 

89 SORT-IMPROPER SPECIF BEYOND I/O 

90 IMPROPER DO STATEMENT 

91 MISSING FILE IDENTIFIER 

92 IMPROPER 10 STATEMENT 

93 SORT-DROC IMPOSSIBLE 

94 SORT-IMPROPER RECORD SPECIF 

95 SORT-IMPROPER SPECIF SORT ORDER 

96 SORT-IMPROPER FOLLOWING SORT ORDER 

97 MERGE-IMPROPER SPECIFICATION 

98 MERGE-ERROR OUTPUT SPECIF 

99 MERGE-ERROR RECORD SPECIF 

100 MERGE-ERROR MERGE ORDER 

101 MERGE-ERROR MERGE FILE LIST 



RUN-TIME ERRORS 

An error during execution results in the printing of an error message, 
the name of the library procedure involved, and the line number of the 
ALGOL program at which execution was currently taking place. The program 
is then terminated. The list of run-time errors follows: 



INCORRECT NUMBER OF ARGUMENTS TO 

MEMORY CAPACITY EXCEEDED IN 

UNDEFINED DESIGNATIONAL EXPRESSION IN 

READ/WRITE ERROR REF A SEG ARRAY . 

SORT ERROR 

RANGE INCLUSION ERROR 

IMPROPER PARAMETER TO PROCEDURE 

IMPROPER 

UNRECOVERABLE DRUM ERROR IN 

CHARACTERISTIC UNDERFLOW 

INCORRECT NUMBER OF ARGUMENTS TO PROCEDURE 

CHARACTERISTIC OVERFLOW 

ATTEMPTED DIVISION BY ZERO 

IMPROPER NUMBER OF DIMENSIONS FOR 

SUBSCRIPT OUT OF RANGE FOR 

RESULT UNDEFINED FOR 

ARGUMENT OUT OF RANGE FOR 

CALLED ROUTINE NOT IN LIBRARY 

ILLEGAL OR IMPROPER SEQUENCE OF FORMAT PHRASES 

IMPROPER PARAMETER TO 

DEVICE NOT IMPLEMENTED 

FILE NOT KNOWN 

FILE NOT ASSIGNED 

BUFFER IMPROPERLY DEFINED 

ERROR IN LIBRARY CALL 

FILE PREVIOUSLY RELEASED CANNOT OPEN 

FILE PREVIOUSLY OPENED, NEVER CLOSED 

INTERNAL FILE ERROR 



PARAMETER TO 
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FEATURE NOT IMPLEMENTED 

ATTEMPT TO WRITE INPUT FILE 

ATTEMPT TO READ OUTPUT FILE 

FILE NOT OPENED WHEN READ ATTEMPTED 

DEVICE UNKNOWN 

FORMAT SPEC MISSING 

UNKNOWN CONTROL WORD IN FILE 

EOF, NO RETURN SPECIFIED 

ATTEMPTED REWIND ON IMPROPER DEVICE 

ALGOL I/O ERROR 

NAMELIST INPUT NONBLANK COL 1 

NAMELIST ADDRESS NOT SPECIFIED 

NAMELIST NAME INCORRECT IN INPUT 

VARIABLE/ARRAY/LABELNAME IN INPUT NOT FOUND 

SPACE FOUND IN NAME IN NAMELIST INPUT 

REVERSE READ. DEVICE ILLEGAL 

ITEM SIZE GREATER THAN SPECIFIED 

IMPROPER LINE CONTROL SPECIFICATION 



(FORMAT 
(FORMAT 
(FORMAT 
(FORMAT 
(FORMAT 
(FORMAT 
(FORMAT 
(FORMAT 
(FORMAT 
(FORMAT 
(FORMAT 
(FORMAT 
(FORMAT 
(FORMAT 
(FORMAT 
(FORMAT 



IMPROPER FORMAT DECLARATION 
IMPROPER EXPONENT IN INPUT DATA 
NUMBER IN FORMAT TOO LARGE 
IMPROPER FORMAT PHRASE TYPE 
IMPROPER FORMAT PHRASE 

INPUT DATA VALUE MORE THAN 1 DECIMAL POINT 
INPUT DATA NON-NUMERIC 
INPUT DATA TOO LARGE 
OUTPUT FORMAT USED IN READ 
INPUT DATA NOT LOGICAL VALUE 
INPUT DATA NON OCTAL 
IMBEDDED SPACE IN INPUT DATA 
INPUT VALUE HAS TRUNCATION ERROR 
INPUT DATA CONVERSION ERROR 
OUTPUT DATA TOO LARGE FOR FIELD WIDTH 
OUTPUT DATA VALUE EXPONENT TOO LARGE 
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APPENDIX B. RESERVED WORDS FOR 

MARINER MOB EXTENDED 
ALGOL 



ABSORB 

ALPHA 

AND 

ARRAY 

BEGIN 

BOOLEAN 

CLEAR 

CLOSE 

COMMENT 

COMPARE 

COMPLEX 

CONVERSION 

CORE 

DBL 

DEC 

DEFINE 

DIV 

DO 

DOUBLE 

DRUM 

DUMP 

ELSE 

END 

EQL 

EQV 

ETEST 

EVENT 

EVERY 

EWAIT 

EXECUTE 

EXTERNAL 

FALSE 

FILE 

FILL 

FIXED 

FOR 

FORMAT 

FORWARD 

GEQ 

GO 

GOTO 

GTR 

HIGH 

IF 

IMP 

IN 

INTEGER 

KEY 

LABEL 

LEQ 

LINE 

LIST 



LOCK 

LOW 

LSS 

MERGE 

MOD 

MONITOR 

MOVE 

NAMELIST 

NEQ 

NO 

NOT 

OCT 

ON 

OR 

OUT 

OVERFLOW 

OWN 

PAGE 

PROCEDURE 

PURGE 

RANDOM 

REAL 

RECORD 

RELEASE 

REVERSE 
REWIND 

SAVE 
SERIAL 

SET 
SLEEP 

SORT 

SPACE 

STEP 

SWITCH 

TASK 

THEN 

TO 

TRACE 

TRUE 

UNDERFLOW 

UNTIL 

UPDATE 

VALUE 

WAIT 

WHEN 

WHILE 

WITH 

WRITE 

XOR 

ZERODIVIDE 

ZIP 
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APPENDIX C. INDEX OF 

METALINGUISTIC 
VARIABLES 



Obsorb array declaration> 


9.7.1 


<absorb declaration> 


9.7.1 


<action label> 


11.3.2 , 11.3.5 


<activity statement> 


12.1.1 


<actual parameter> 


3.2.2.1 , 6.6.1 


<actiial parameter list> 


3.2.2.1 , 6.6.1 


<actual parameter part> 


3.2.2.1 , 6.6.1 


<adcling opQrator> 


4.2.1 


<addfess> 


11.3.2.1 , 11.3 


<alpha constant> 


2.1.9.1 


<arithmetic: express ion> 


4.2.1 


<arithmetic operator> 


2.1.3.1 


<array declaration> 


9.6.1 


<array ideritifier> 


3.2.1.1 , 6.5.1 


<array list> 


9.6.1 


<array row> 


6.6.1 


<array segment> 


9.6.1 , 9.7.1 


<array type> 


9.6.1 


Ossignment statement> 


6.2.1 


<basic staitement> 


5.1 , 6.1.1 


<bit field description> 


4.5.1 


<bits in field> 


4.5,1 


<bit position> 


5.1 , 6.1.1 


<bloci<> 


5.1 • 


<blocl< liead> 


5.1 , 6.1.1 


<blocking specification> 


11.2.2.1 


<Boolean constant> 


2.1.9.1 


<Boolean expression> 


4.3.1 


<Boolean tactor> 


4.3.1 


<Boolean primary> 


4.3.1 


<Boolean «iecondary> 


4.3.1 


<Boolean term> 


4.3.1 


<bound pai:r> 


9.6.1 , 9.7.1 


<bound pair list> 


9.6.1 , 9.7.1 


<bracket> 


2.1.3.1 


<buffer lerigtli> 


11.2.2.1 


<buffer part> 


11.2.2.1 


<buffer release> 


11.3.2.1 


<carriage control> 


11.3.4.1 


<channel number> 


11.2.9.1 


<channel s;pecification> 


11.2.9.1 


<cliaracter field description> 


4.5,1 


<characters in field> 


4.5.1 


<ciear state me nt> 


12.5,1 


<close state me nt> 


11.3.6.1 


<compare statement> 


6.10.1 


<complex constant> 


2.1.9.1 


<compourid state ment> 


5.1 , 6.1.1 



<compound tail> 

<concatenate express ion> 

<condition> 

<conditionai statement> 

<constant> 

<data reduction procedure> 

<decimal fraction> 

<decimal number> 

<decimal plaees> 

<declaration> 

<declarator> 

<define declaration> 

<definition> 

<definition list> 

Xdefinition part> 

<delete statement> 

<delimiter> 

<density part> 

<designational expression> 

<destination> 

<digit> 

<direction> 

<diink> 

<do statement> 

<drum access technique> 

<drum file description part> 

<dummy statement> 

<dump condition> 

<dump deciaration> 

<dump list> 

<dump list element> 

<dump part> 

<editing phrase> 

<editing phrase type> 

<editing segment> 

<editing specification part> 

<editing specifications> 

<efile part> 

<element part> 

<end of file label> 

<end of reel label> 

<event list> 

<event state me nt> 

<event wait statement> 

<execute statement> 

<exponent part> 

<expression> 

<expression list> 

<expression part> 



5.1 , 6.1.1 

4.6.1 

6.9.1 

5.1 , 7.1 

2.1.9.1 

13.1.1 

2.1.7.1 

2.1.7.1 

11.2.4.1 

9.1.1 

2.1.3.1 

9.8.1 

9.8.1 

9.8.1 

9.8.1 

12.4.1 

2.1.3.1 

4.4;1 

11.2.2.1 

6.10.1 

2.1.2.1 

11.3.2.1 

6.10.1 

8.3.1 

11.2.2.1 

11.2.2.1 

6.4.1 

9.10.1 

9.10.1 

9.10.1 

9.10.1 

9.10.1 

11.2.4.1 

11.2.4.1 

11.2.4.1 

11.2.5.1 

11.2.4.1 

10.3.1 

10.3.1 

11.3.2.1 

11.3.4.1 

12.5.1 

12.5.1 

12.5.1 

12.2.1 

2.1.7.1 

4.1.1 

11.2.6.1 

11.2.6.1 
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<externai procedure declaration> 

<factor> 

<field> 

<field delimiter> 

<field part> 

<field width> 

<file declaration> 

<file identification part> 

<file identification prefix> 

<file identifier> 

<file lock part> 

•^'fiie part> 

<fill statenient> 

<fixed item size> 

<fixed logical record size> 

<fixed physical record si2e> 

<for clause> 

<for list> 

<for list elenient> 

<for statement> 

<formal declaration> 

<formal parameter> 

<formal parameter list> 

<formal parameter part> 

<format> 

<format and list part> 

<format declaration> 

<format edit part> 

<format identifier> 

<format part> 

<for statement> 

<forward procedure declaration> 

<forward reference declaration> 

<forward switch declaration> 

<free field part> 

<free field sentence> 

<function designator> 

<general primary> 

<general procedure declaration> 

<go to statement> 

<heading> 

<heading control> 

<hivalue procedure> 

<identifier> 

<identifier list> 

<if clause> 

<if state ment> 

<implication> 

<in*out part> 

<input file> 

<input option> 

<in put or output> 

<input parameters> 

<input procedure> 

<integer> 

<iterative statemenO 

<l/0 declaration> 

<l/0 statement> 

<l/0 switch designator> 

<key description> 

<kind> 

<iabel> 



11. 
11. 
11. 
11. 



.1 
.1 

.1 , 
.1, 



10.3.1 

4.2.1 

11.3.3.1 

11.3.3.1 

11.2.4.1 

11.2.4.1 

11.2.2.1 

11.2.2.1 

11.2.2.1 

.2.2 

.2.2 

.3.2 

.3.5 
6.5.1 
13.1.1 
11.2.2.1 
11.2.2.1 
8.2.1 
8,2.1 
8.2.1 
8.2.1 
8.2.1 
10.2.1 
10.2.1 
10.2.1 
13.1.1 , 
11.3.2.1 
11.2.4.1 
11.2.4.1 
11.2.4.1 
11.3.2.1 
8.2.1 
9.5.1 
9.5.1 
9.5.1 
11.3.2.1 
11.3.3.1 
3.2.2.1 
4.6.1 
10.1.1 
6.3.1 
11.2.9.1 
11.2.9.1 
13.1.1 , 
2.1.6.1 
10.2.1 
4.2.1 , 5 
5.1 , 7.1 
4.3.1 
11.2.2.1 
13.1.1 
13.1.1 
11.2.4.1 
11.3.2.1 
13.1.1 
2.1.7.1 
5.1 , 8.1 
11.2,1.1 
11.3.1 
11.4.1.1 
13.1.1 , 13 
10.3.1 
4.4.1 , 9.3.1 



11.3.4.1 
11.3.7.1 



13.2.1 



11.3.4.1 



13.2,1 



1 . 7,1 



.1 



2.1 



<label declaration> 


9.3.1 


<label equation part> 


11.2.2.1 


<label list> 


9.3.1 


<label part> 


11.2.2.1 


<left base> 


4.6.1 


<left bit of field> 


4.5.1 


<left bit of left base> 


4,6,1 


<left bit of right base> 


4.6.1 


<left char> 


6.10.1 


<left character of field> 


4.5.1 


<left part> 


6.2,1 


<left part list> 


6.2.1 


<letter> 


2.1.1.1 


<letter string> 


6.6.1 


<line declaration> 


11,2,9,1 


<line number> 


11,2,9.1 


<link description> 


4,6,1 


<link part> 


4.6.1 


<list> 


11.2.6.1 


<list declaration> 


11.2.6.1 


<list identifier> 


11.2.6.1 


<list part> 


11.3.2.1 , 11,3 


<list segment> 


11.2.6.1 


<list specification> 


11.2.6.1 


<local or own type> 


9.2.1 


<lock StatemenO 


11.3.8.1 


<logical operator> 


2.1.3.1 


<low value> 


13.1.1 , 13.2.1 


<low value procedure> 


13.1.1 , 13.2.1 


<lower bound> 


9.6.1 , 9.7.1 


<major own> 


13.1.1 , 13.2.1 


<maximum record length> 


11. 2 .2.1. 


<maximum size> 


13.1.1. 


<merge file> 


13.2 


<merge file list> 


13.2.1 


<merge order> 


13.2.1 


<merge statement> 


13.2.1 


<mfile part> 


9.9.1 


<minimum size> 


13.1.1 


<minor own> 


13.1.1 , 13,2.1 


<mode part> 


11.2.2.1 


<monitor declaration> 


9.9.1 


<monitor list> 


9.9.1 


<monitor list element> 


9,9.1 


<moutput option> 


13.2.1 


<move statement> 


6.10.1 


<mrecord length> 


13.2.1 


<multi-file identification part> 


11.2.2.1 


<multiplying operator> 


4.2.1 


<namelist declaration> 


11.2.8.1 


<namelist element> 


11.2.8.1 


<namelist identifier> 


11.2.8.1 


<namelist list part> 


11.2.8.1 


<namelist parameter part> 


11.2.8.1 


<number> 


2,1.7.1 


<number of areas> 


11.2.2.1 


<number of bits> 


13.1.1 , 13.2.1 


<number of bits in link> 


4.6.1 


<number of buffers!> 


11.2.2.1 


<number of char> 


6.10.1 


<number of records> 


11.3.5.1 


<number of tapes> 


13.1.1 


<octal constanO 


2.1.9.1 


<octal digit> 


2.1.2.1 



,4.1 
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<octal number> 2.1.9.1 , 

<on statemenD 6.9.1 

<open string> 2.1.8.1 

<operatoi> 2.1.3.1 

<ordering sequence> 13.1.1 , 

<out destination> 6.10.1 

<output file> 13.1.1 , 

<output media part> 11.2.2.1 

<output option> 13.1.1 

<output parameters> 11.3.4.1 

<output procedure> 13.1.1 , 

<own compare> 13.1.1 , 

<paper size> 11.2.9.1 

<parameter delimiter> 3.2.2,1 , 

<parity label> 11.3.2.1 

<partial word designator> 4.5.1 

<partial word oiperand> 4.5.1 

<primary> 4.2.1 

<proc list> 10.3.1 

<proc part> 10.3.1 

<proc,edure body> 10.2.1 

<procedure dec;laration> 10.2.1 

<procedure heading> 10.2.1 

<procedure identifier> 3.2.2.1 , 

<procedure Iis1:> 9.5.1 

<procedure statement> 6.6.1 

<procedure type> 9.5.1 

<proper string> 2.1.8.1 

<range inclusion> 13.1.1 , 

<rangeown> 13.1.1 , 

<read statemenit> 11,3.2.1 

<record address and release part> 11.3.2.1 

<record address part> 11.3.4.1 

<record length> 13.1.1 

<record specifications> 11.2.2.1 

<reel save part> 11,2,2.1 

<relation> 4.3,1 

<relational operator> 2.1,3,1 , 

<repeat part> 11,2,4.1 

<rewind statement> 11.3,7.1 

<right base> 4.6.1 

<row> 6.5,1 

<row designator> 6.5.1 

<sarray type> 9.7.1 

<save factor> 11.2.2.1 

<separator> 2.1.3.1 

<sequential operator> 2.1.3.1 

<set statement> 12.5.1 

<simple arithmetic expre3Sion> 4.2.1 

'Csimple Boolean> 4.3,1 

•Csimple designational express ion> 4,4.1 

<simple var iable> 3,2,1.1 

<size of areas> 11.2.2.1 

<skip to channel> 11.3.4.1 

<slink> 6.10.1 

<sort order> 13,1,1 

<sort statemenit> 13,1,1 

<source> 6,10,1 

<source part> 6,10,1 

<source to destination statement> 6,10.1 

<space statement> 11.3.5.1 



13.2.1 



13,2.1 



13.2.1 
13.2.1 

6.6.1 

, 11.3.4.1 



6.6.1 , 10.2.1 



13.2.1 
13,2.1 



4,3,1 



<special exponent part> 2,1,7.1 

<specification part> 10.2,1 

<specificator> 2.1.3.1 

<specifier> 10.2.1 

<statement> 5.1 

<station part> 11.2.2.1 

<string> 2.1,8,1 

<string bracket cliaracter> 2,1.8,1 

<subscripted variable> 3,2,1.1 

<subscript express ion> 3,2,1.1 

<subscript !ist> 3.2.1.1 

<switch declaration> 9.4.1 

<switcli designator> 4.4.1 

<switch file declaration> 11.2.3.1 

<switch file designator> 11.4,2.1 

<switch file identifier> 11,2,3,1 , 11,4,2,1 

<switch file list> 11,2,3,1 

<switch format declaration> 11.2,5,1 

<switch format designator> 11.4,3.1 

<switch format identifier> 11.2,5,1 , 11,4,3,1 

<switch format list> 11,2,5,1 

<switch identifier> 4,4.1 , 9,4.1 

<switch identifier list> 9.5,1 

<switch list> 9.4.1 

<switch list declaration> 11.2.7.1 

<switch list designator> 11.4.4.1 

<switch list identifier> 11.2.7.1 , 11.4.4.1 

Owitch list list> 11.2.7.1 

<symbol> 9.8.1 
<task list> 
<task specification> 
<task variable> 

<term> 

<time function> 

<transfer in statement> 

<transfer oiit statement> 

<type> 

<type declaration> 

<type list> 

<unblocked specification> 

<unconditiona! statement> 

<unlabelled basic statement> 

<unlabelled block> 

<unlabelled compound statement> 

<unsigned integer> 

<unsigned number> 

<upper bound> 

<value list> 

<value part> 10.2.1 

<variable> • 3.2.1.1 

<variable identifier> 3.2.1,1 

<variable item size> 13.1,1 

<waction label> 11.3,4,1 

<wait statement> 12,3.1 

<wformat and list part> 11.3.4.1 

<word position> 13.1,1 , 13,2,1 

<write statement> 11,3.4.1 

<zip statement> 6.8.1 



12.3.1 

12.2.1 

12.2.1 

12.4.1 

4.2.1 

3.2.3.1 

6.10.1 

6.10.1 

9.2.1 

9.2.1 

9.2.1 

11.2.2.1 

5.1 , 6.1.1 

, 6.1.1 

, 6.1.1 

, 6.1.1 

7.1 

7.1 

1 

1 



12.4.1 



12.3.1 



9.7.1 
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APPENDIX D. SPECIAL TOPICS 



Two of the more sophisticated concepts of the ALGOL 60 language are recursive pro- 
cedures and the facility to call-by-name or call-by-value procedure parameters. 

Dl. RECURSIVE PROCEDURE CALLS 

The theoretical importance of recursive functions and the growing number of applica- 
tions in simulation models and experimental mathematics justifies the need for recur- 
sive capability and the effort necessary for implementation of this capability. 

The "Report on the Algorithmic Language ALGOL 60" states that, "any other (than 
the appeararice in the left part list) occurrence of the procedure identifier within the 
procedure body denotes activation of the procedure". 

The normal sequence of execution in an ALGOL 60 program can be altered by a pro- 
cedure call statement or by naming a function procedure as a primary in an arithmetic 
expression. The above quoted paragraph makes it valid for any procedure to call 
itself, or to call a second procedure which then calls upon the first (direct recursion), 
or to pass to a procedure, as an actual parameter a call upon itself (indirect recursion). 

In either case, it is clear that a procedure may be entered several times before an 
exit occurs. (Note that this js not the case for a begin block; the ALGOL Report 
states that when a GO TO statement naming a global label to the block is executed, 
normal block ending must occur.) 

If a procedure is involved in recursion all variables local to the procedure, including 
parameters called-by-value, must be uniquely identifiable for each level of recursion. 
The dynamic run time stack of an ALGOL implementation, which is essentially 
"pushed down" for each entry to a block (procedure or begin) and "popped up" at 
block exit, enables recursive capability. 

REAL PROCEDURE SIGMAD (I, A, B, X); 
VALUE A; INTEGER I, A, B; REAL X; 
BEGIN 

lE'^ B LSS A THEN SIGMAD:=0 
ELSE BEGIN 
I :=A; 

SIGMAD :=X+SIGMAD (I, A+1, B, X) 
END; 
END; 

Figure 1. Example of Direct Recursion 
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REAL PROCEDURE SIGMAI (I, A, B, X); 

VALUE B; INTEGER I, A, B; REAL X; 
BEGIN 

REAL SUM; 

SUM :=0; 

FOR I :=A STEP 1 UNTIL B DO 
SUM :=X+SUM; 

SIGMAI :=SUM 
END; 

Y := Z + SIGMAI (C, 1, 50, SIGMAI (R, 1, 50, MAT [C, R] )); 

COMMENT WITH THE PROCEDURE SIGMAI DEFINED AND CALLED 

SPECIFYING ITSELF AS A PARAMETER IN THIS MANNER INDIRECT 
RECURSION OCCURS; 

Figure 2. Example of Indirect Recursion 

D2. PARAMETERS CALLED-BY-NAME OR CALLED-BY-VALUE 

When a formal parameter to a procedure appears in the value list for the procedure, 
the ALGOL Report specifies that the valute of the actual parameter be delivered to the 
procedure upon entry to the procedure. If the actual parameter is a variable, the cur- 
rent value is delivered, not the address of the variable, so that the variable, itself, is 
never altered by the procedure. If the actual parameter is an expression, it is evaluated 
upon entry to the procedure and the result is passed to the procedure. Note that the 
value passed to a formal parameter called-by-value becomes local to the called pro- 
cedure. 

As stated in Chapter 10 of this manual, if a formal parameter does not appear in the 
value list of a procedure declaration, it is assumed to be called-by-name. 

A formal parameter called-by-name must be evaluated at every reference to the formal 
parameter within the procedure body. For actual parameters that are simple variables, 
this possible multi-evaluation has no effect, since the address of the simple variable 
is delivered at each reference. Note, however, that since the address of the simple 
variable, not the value, is delivered to the procedure at each reference to the formal 
parameter, the value of the variable may be altered by the procedure. 

Call-by-name implies more sophistication for actual parameters that are expressions 
or subscripted variables. At each reference to the formal parameter the expression is 
evaluated. Since operands of the expression may be known to the procedure (as global 
variables or as parameters), the evaluation of the expression can yield a different 
result upon each evaluation. 

The following example program, reprinted from the "Communications of the ACM" 
Volume 8, Number 6, June, 1965, will enable the reader to test his understanding of 
call-by-name and call-by-value. 
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"Received February, 1965 

TESTING THE UNDERSTANDING OF THE DIFFERENCE BETWEEN CALL-BY- 
NAME AND CALL-BY-VALUE IN ALGOL 60 

The following short program incorporates most of the basic call-by-name and call-by- 
value problems in Algol 60 procedures. The procedures INCV (x) and INCN (x) differ 
only in that the formal parameter is called by value in INCV and by name in INCN. 
Likewise, ADDV (y) and ADDN (y) differ only in the call-by-value for ADDV and 
call-by-name for ADDN. 

The problem is to fill in the appropriate blanks within the comment statements. This 
little example has been used successfully, but not extensively, both as a teaching 
device and (for a separate group of students) as a testing device. The answers are 
given in the last paragraph of this note. Test yourself before examining the answers. 

BEGIN REAL a, b; 

REAL PROCEDURE INCV (x); VALUE x, REAL x, 

BEGIN X :=:x+l; INCV : = x END; 
REAL PROCEDURE INCN (x); REAL x; 

BEGIN x :=x+l; INCN :=x END; 
REAL PROCEDURE ADDV (y); VALUE y; REAL y; 

ADDV -^y+y; 
REAL PROCEDURE ADDN (y); REAL y; 
ADDN :=y+y; 
a :-l; b :=ADDV (INCV (a)); 

COMMENT a is now , b is now , 

a : = 1; b :=ADDV (INCN (a)); 

COMMENT a is now , b is now , 

a : = 1; b :=ADDN (INCV (a)); 

COMMENT a is now , b is now , 

a :=1, b :=ADDN (INCN (a)); 

COMMENT a is now , b is now 

END; 

The answers for the blanks in reverse order of their occurrence are 5, 3, 4, 1, 4, 2, 

4, 1. 

ROMAN L. WEIL, JR. 

Graduate School of Industrial Administration 
Carnegie Institute of Technology 
Pittsburgh, Pennsylvania 
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